Visual Basic - error 458 en tiempo de ejecucion

holas: recien estoy aprendiendo a programar en visual basic 6.0, estoy utilizando una base de datos en acces, los campos que comparo son del mismo tipo: numerico. lo qeu intento hacer es buscar un codigo de la tabla TBLUsuarios dentro de la tabla TBLUsuario_Seccion. el codigo qeu genete para esto es:

TBLUsuario_Seccion.MoveFirst
While (Not TBLUsuario_Seccion) And (b = 0)
If TBLUsuario_Seccion.Fields("Cod_Usuario") = TBLUsuarios.Fields("Cod_Usuario") Then
b = 1
Text4M.Text = TBLUsuario_Seccion.Fields("Cargo")
End If
TBLUsuario_Seccion.MoveNext
Wend

pero en la linea de codigo

If TBLUsuario_Seccion.Fields("Cod_Usuario") = TBLUsuarios.Fields("Cod_Usuario") Then

me da error 458 en tiempo de ejecucion. la variable usa tipo de automatizacion no admitido en visual. no tengo idea qeu pueda ser, por favor si me pueden ayudar estoy agradecida.
saludos

While (Not TBLUsuario_Seccion) And (b = 0)
cambiala por esta
While (Not TBLUsuario_Seccion.EOF) And (b = 0)

Pero porque no usas el metodo "Find" es mejor, mas rapido y te ahorras todas esas lines de codigo por una sola.