Visual Basic - Error buscando registro AYUDA!

Muy buenas y gracias de antemano por llegar hasta aquí

He puesto, esta duda tambien en el foro de VB ADO, pero este tiene más movimiento, a ver si hay suerte.

Estoy tratando de hacer una conexión a access 2010 desde vb6, para hacer una búsqueda en una tabla con un determinado dato sabido de antemano (VarIdUsuario), según esa búsqueda quiero coger el nombre de usuario (UsuUsuario) resultado de esa búsqueda para mostrarlo en la statusbar. Me da error en la línea 6 (Nombre de origen de datos demasiado largo). Acepto otras ideas alternativas si son más sencillas y eficientes. ¿Qué hago mal?

1 Dim adoConexion As New ADODB.Connection
2 Dim sSQLQuery As String
3 Dim adoRegistros As New ADODB.Recordset

4 Set cn = New Connection
5 adoConexion.Provider = "MSDASQL.1"
6 adoConexion.Open (App.Path & "\db.mdb")

7 sSQLQuery = "SELECT * FROM USUARIOS WHERE IDUsuario = '" & VarIdUsuario

8 adoRegistros.Open sConsulta, adoConexion, adOpenStatic, adLockReadOnly

9 If adoRegistros.BOF = adoRegistros.EOF And adoRegistros.EOF = False Then
10 StB_Principal.Panels.Item(4) = "Usuario: " & adoRegistros!UsuUsuario
11 End If

12 adoConexion.Close
13 Set adoConexion = Nothing

Ya he encontrado la solución a mi problema, aqui la cuelgo para el que la pueda necesitar:

Ado.CommandType = adCmdText
Ado.RecordSource = "SELECT Usuario FROM USUARIOS WHERE IdUsuario LIKE '" & VarIdUsuario & "%' "
Ado.Refresh
text1.text = "Usuario: " & Ado.Recordset!Usuario