No coinciden los tipos de datos en la expresion de criterios sql en vb6

[Libras]

en que le estas poniendo comillas simples al inicio de la variable y eso es solo para los valores string estas haciendo esto

select * from tabla where userid='1' y te marca el error porque userid es de tipo entero y lo estas comparado con una cadena si necesitas usar el valor en cadena puedes hacer lo sig

select * from tabla where userid=convert(int,'1')

Saludos!