I'd guess no matches. Try this version which will output something either way:
Sub LookUp_With_ADO()
On Error Resume Next
Const adOpenStatic = 3
Const adLockOptimistic = 3
Const adCmdText = &H1
Set objConnection = CreateObject("ADODB.Connection")
Set objrecordset = CreateObject("ADODB.Recordset")
objConnection.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=D:\MyFiles\;" & _
"Extended Properties = ""text; HDR=No "","
With ActiveWorkbook
For i = 2 To 11 'LastRow 'I'm not sure if for loop
objrecordset.Open "Select [F2], [F3], [F4] FROM [Origin.csv] Where [F1] = '" & .Sheets(1).Cells(i, 1).Value & "'", _
objConnection, adOpenStatic, adLockOptimistic, adCmdText
If Not objrecordset.EOF Then
.Sheets(1).Cells(i, 2).CopyFromRecordset objrecordset
Else
.sheets(1).cells(i, 2).value = "no match"
End If
objrecordset.Close
Next i
End With
End Sub
Bookmarks