Visual Basic - ayuda con sql para recibo de pago

hola amigos tengo un problema al generar un reporte de un recibo de pago el problema lo tengo en la consulta espero me puedan ayudar aki dejo el codigo
esta en visual basic 6 y la base en mysql

'en la primera parte estoy guardando los datos que me dan y de hay saco la clave y la fecha para comparar en la base


Case "pago"
Set cone = New ADODB.Connection
Set regi = New ADODB.Recordset

cone.ConnectionString = "DSN=easy"
cone.Open

regi.ActiveConnection = cone
regi.CursorType = adOpenDynamic

regi.LockType = adLockOptimistic


conecta.Open

registro.ActiveConnection = conecta
Y = Val(txtcve_alumno.Text)

registro.Source = "select * from pagos where cve_alumno = '" & X & "'"

registro.Open
If registro.BOF = True And registro.EOF = True Then
registro.AddNew

registro.Fields(1) = txtcve_alumno.Text
registro.Fields(2) = Combo1.Text
registro.Fields(3) = txtcantidad.Text
registro.Fields(4) = txtfecha.Text

registro.Update

'de aqui obtengo la clave y la fecha pero la fecha esta en formato DD/MM/AAAA y en la base esta YYYY/MM/DD como hago para poder compararla y que la consulta me pueda arrojar resultado.

cvea = txtcve_alumno.Text
fecha = txtfecha.Text

registro.Close

' esta es la cosulta que esta mal que yo pienso que el problema el esle de la fecha por los formatos que no coinsiden

regi.Source = "SELECT * from pagos where cve_alumno = " & cvea & " and fecha = " & fecha & " JOIN alumnos ON alumnos.cve_alumno =" & cvea & " "

regi.Open

Set DataReport2.DataSource = regi
DataReport2.Show 1

espero me puedan ayudar porfa se los agradesco....

Hola como estas, proba de cambiar el formato de la fecha antes de pasarselo a la base como parametro

Dim fecha As String
fecha = "14/08/1976"
MsgBox Format(fecha, "yyyy/mm/dd")

un pequeño ejemplo

sino fijate de hacerlo desde la consulta con convertdatetime , a investigar !!

y por favor redacta bien !!! jajaja

de hay saco la clave

es de ahi saco !!!

saludos amigo