Try this

[vba]

Sub FindaReference()
Dim varConnection
Dim varSQL
Cells(i, 1).Select
varConnection = "ODBC; DSN=MS Access Database;" & _
"DBQ=C:\Users\*xxxxx*\Documents\IDSDB.mdb;" & _
"Driver={Driver do Microsoft Access (*.mdb)}"
varSQL = "SELECT [instructionsreceivedDS-090816].[Instruction Reference], " & _
" [instructionsreceivedDS-090816].[Instruction Type],, " & _
" [instructionsreceivedDS-090816].[Instruction Received],, " & _
" [instructionsreceivedDS-090816].[BlahBlah], " & _
" [instructionsreceivedDS-090816].[BlahBlah1], " & _
" [instructionsreceivedDS-090816].[BlahBlah2], " & _
" [instructionsreceivedDS-090816].[Instructor Name], " & _
"FROM [instructionsreceivedDS-090816], " & _
"WHERE [instructionsreceivedDS-090816].[Instruction Reference] = '" & TextBox1.Text & " ' "
With ActiveSheet.QueryTables.Add(Connection:=varConnection, Destination:=Cells(i, 1))
.CommandText = varSQL
.Name = "Query-39008"
.Refresh BackgroundQuery:=False
End With
End Sub
[/vba]