Visual Basic - URGENTE PROBLEMA CON SELECT CON VARIABLES

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

Dim resbus2 As ADODB.Recordset

set resbus2 = new 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

falto poner el apostrofe en el select

a q apostrofe te refieres? o en donde exactamente hace falta?

sorry me equivoque

corrige esto

aux2 = cdbl(b(aux) )

ya que estas intentando pasarle un string a un double