Hello,
What are we doing wrong
i can't get it working
error image hereDim cnn As New ADODB.Connection Dim rst As New ADODB.Recordset Dim qry As String, i As Integer qry = "SELECT TBL_ImportList.m_Referentie " & _ "FROM TBL_List INNER JOIN TBL_ImportList " & _ "ON TBL_List.ID = TBL_ImportList.ID " & _ "WHERE TBL_List.m_Customer_Name LIKE '%" & Me.txtfirstname.value & "%'" cnn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ThisWorkbook.Path & "\Database.ACCDB" rst.Open qry, cnn, adOpenKeyset, adLockOptimistic
-Thanks25896325410.jpg