Visual Basic - Ayuda error

Hola, necesito sabr donde esta el error en este codigo:

cmdv21.CommandType = adCmdText
cmdv21.ActiveConnection = DataEnvironment2.Connection1

cmdv21.CommandText = "select * from registro where nombre='" & LTrim(RTrim (Text1.Text)) & "' and id_esquma=" & (Int(Left$(principal.Combo1.Text, 3))) & " "
If rscmdv21.State = 0 Then
rscmdv21.Open cmdv21, , adOpenDynamic
Else
rscmdv21.Requery
End If
If rscmdv21.RecordCount = 0 Then

Resulta que cuando llega a la linea que dice "rscmdv21.Open cmdv21, , adOpenDynamic" me tira un error que dice: "no value given for one or more required parameters"... en otros formularios del programa funciona bien este mismo codigo... las variables estan nombradas: Dim cmdv21 As New Command, Dim rscmdv21 As New Recordset
Este programa corre en visual Basic 6.0

Gracias

cmdv21 debe ser un new conecction

lo que pasa es que cmdv21 tiene que ser un command, por que sino salta un error en la parte: cmdv21.CommandType = adCmdText

Gracias igual

cmdv21.CommandText = "select * from registro where nombre=''" & LTrim(RTrim (Text1.Text)) & "' and id_esquema = '" & (Int(Left$(principal.Combo1.Text, 3))) & "' "

El mensaje de error te indica que falta un valor para alguno de los parametros requeridos.
Proba con este codigo habersi te funciona y me parece que te faltaun connection

Saludos, Suerte

Gracias Miguel, anduvo bien. Aveces uno se complica y el error esta a la vista