el codigo de mi recordset es el que sigue
Dim rs2 As ADODB.Recordset
rs2 = New ADODB.Recordset
rs2.ActiveConnection = cn
rs2.CursorLocation = ADODB.CursorLocationEnum.adUseClient
rs2.Open("SELECT * FROM diagnosticos WHERE dianosticoclinico= '" & ComboBox1.Text & "'And fechaexamen BETWEEN " & "#" & DateTimePicker1.Text & "# And #" & DateTimePicker2.Text & "#'", cn)
el desarrollador no me marca ningun error pero cuando apreto el boton para activar el recordset aparece este error " Información adicional: Línea 1: sintaxis incorrecta cerca de ','. " porfavor amigos foreros nesecito su ayuda porque no encuentro la solucion en ninguna parte

de antemano muchas gracias