Hello,

What are we doing wrong
i can't get it working 

Dim 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
error image here

-Thanks25896325410.jpg