Visual Basic - Ayuda con Between por favor urgente

Muy buenas tardes amigos programadores necesito de su ayuda por favor urgente.

estoy haciendo una consulta para que me muestre en un cuadro de texto la cantidad de alumnos contenido en una base de datos en SQLSERVER 2005

esta es la sentencia que he añadido

Private Sub cmdTesisProc_Click()

cnn.Open

sql = "SELECT IDTESIS, sum(alumno) as [Total Alumnos]From Tesis where fecha between '" & txtTFI.Text & "' and '" & txtTFF.Text & "' group by IDTesis"

rst.Open sql, ReadOnly, adOpenStatic

If rst.RecordCount > 0 Then

txtAlumnos.Text = rst![Total Alumnos]
Else
txtAlumnos.Text = 0

End If

cnn.Close

End Sub

pero me da el siguiente error: ERROR '3001' EN TIEMPO DE EJECUCION:
ARGUMENTOS INCORRECTOS, FUERA DEL INTERVALO PERMITIDO O EN CONFLICTO CON OTROS.

realmente no se que estoy hacindo mal. Espero que me ayuden por favor

Muy buenas tardes a todos

Parece que en la apertura del recordset falta la conexión

rst.Open sql, cnn, ReadOnly, adOpenStatic