Mschart graficos

[rubencho5413]

ahora me dice esto " No coinciden los tipos en la exprecion de criterios"

este es todo mi codigo no se que esta mal pero siempre me arroja error en lo de la fecha


Private Sub Command1_Click()
'abrimos una conexion a datos con el uso de un proveedor OLEDB
'cuidado con la ruta donde esta la base de datos.
Dim cnn As New ADODB.Connection
Dim rst As New ADODB.Recordset
Dim strProveedor As String
Dim strOrigenDatos As String
Dim strSQL As String
Dim T1 As Date
Dim T2 As Date
T1 = Text1
T2 = Text2
strProveedor = "Microsoft.Jet.OLEDB.4.0"
strOrigenDatos = App.Path & "\baseapli.mdb"
strSQL = ("SELECT nombre, SUM(numtallos) AS Totaltallos from poscosecha WHERE (fecha BETWEEN '" & T1 & "' And '" & T2 & "') GROUP BY nombre")
cnn.Open "provider=" & strProveedor & "; Data Source=" & strOrigenDatos
rst.Open strSQL, cnn, adOpenStatic

With MSChart1
.ShowLegend = True
.chartType = VtChChartType2dBar
'esta linea carga los datos
Set .DataSource = rst
End With
End Sub