Visual Basic - Ayuda

nececito ayuda con el ADO me tira el error 91(La variable de objeto o la variable de bloque With no está establecida ) y las solucion que me da en el MSDN no lo solucionan.
¿como lo puedo solucionar?
aca esta la linea de codigo
Function BusquedaID(ID As Long) As Long
Dim ADOTmp As ADODB.Recordset
Conexion = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= I:VBPracticasproyecto3BDdb1.mdb"
ADOTmp.Open "SELECT * FROM datos WHERE iddatos= " & Str(ID), Conexion, adOpenDynamic, adLockOptimistic
BusquedaID = ADOTmp.Fields("id")
ADOTmp.Close
End Function
Desde ya muchas gracias.
M@7€

HOLA MATE
QUIERO SUPONER QUE LO QUE DESEAS HACER ES BUSCAR UN REGISTRO EN ESPECIAL.
EL CODIGO SERIA ASI

Function BusquedaID(ID As Long) As Long
Dim CONEXIONAs New Connection
Dim ADOTmp As New Recordset
CONEXION.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= I:VBPracticasproyecto3BDdb1.mdb"
ADOTmp.Open " "SELECT * FROM datos WHERE iddatos= " & (aca colocaria un textbox donde el usuario coloca el iddatos para que haga la busqueda), Conexion, adOpenDynamic, adLockOptimistic
BusquedaID = ADOTmp.Fields("id")
ADOTmp.Close
End Function

LO PROBE Y FUNCIONA, CUALQUIER COSA AVISAME.
UN SALUDO.