Urgente ayuda con select con variables

[elektro37]

Lo q necesito es hacer una consulta sql ultilizando una variable para q sea dinamica y a la ves el resultado de la consulta la guarde en otra variable para poder imprimirla en un textbox.

Hasta ahora tengo esto pero me marca un error de q no coinciden los datos:

Dim resbus2 As ADODB.Recordset

Dim x As Integer
Dim aux As Integer
Dim aux2 As Double

Dim b(1000) As String
Dim c(1000) As String


aux = 0
Do While aux <= 55
aux2 = b(aux)

Set resbus2 = cnn.Execute("Select detalle_lista.Calificacion from detalle_lista where clave_lista= " & aux2 & "")
c(aux) = resbus2.Fields(0).Value 'obtenemos la calificacion
aux = aux + 1
Loop


notas: el vector b() fue llenado previamente con un select identico la unica diferencia es q en ese select no utilice variables. en este me marca un error de q no coinciden los tipos de datos en la linea del select.

Ya intente haciendo la variable aux2 de tipo string pero parece q de esa manera no se hace la consulta.

cualquier ayuda es bienvenida. Muchas gracias