Hola! tengo un pequeño problemita, estoy haciendo una consulta mediante SQL con parametros detallados como en el video 20 del curso de Visual Basic 6.0 y al terminar de programar y correr el programa me sale un "error de acceso a datos".
Ademas, en el momento de programar no pude observar bien que signo es para la comparacion de registros en mi variable buscaNoInventario

Private Sub txtBusquedaPrestamo_Change()
If OptBusquedaPrestamos(0).Value = True Then buscaNoInventario
End If

Sub buscaNoInventario()
Dim buscaNoInventario As String
buscaNoInventario = UCase(Trim(txtBusquedaPrestamo.Text)) & "*"
Adodc1.RecordSource = "select * from TABLAPRESTAMOS where [NoInventario] like '" & buscaNoInventario & "*'"
Adodc1.Refresh
FormatoGrillaPrestamos
End Sub

Cual es mi error y como le puedo hacer para solucionarlo?
Gracias!