uso del Between

[verdugo_2687]

Hola tengo este codigo:

Private Sub rango()
rDataset.Clear()
Me.rAdapter = New SqlDataAdapter("Select * from tblOperador where Id between'" & Me.TextBox1.Text & " and " & Me.TextBox2.Text & "'", ConexionConBD)
rAdapter.Fill(rDataset)
Dim rutaReport As String = Application.StartupPath & "\Reportes\ReporteOperador.rpt"
Dim report As New CrystalDecisions.CrystalReports.Engine.ReportDocum ent
report.Load(rutaReport)
report.SetDataSource(rDataset.Tables(0))
Dim re As New frmReportes
re.verReporte(report)
End Sub

lo que kiero hacer es que me imprima en el crystalreport los datos del operador de ese rango dados o ingresados en los textbox pero me marca un errorr
y dice

Incorrect syntax near '1' and '3'

cuando trato de imprimir los datos de los operadores dados del 1 asta el 3 . Bueno de todos

espero me resuelvan