[Resolvido]Filtrar Sub formulario através de combobox e caixas de texto do form principal

Olá,

Estou precisando de uma ajuda.

Desejo filtrar um subform de acordo os valores de uma comboBox e duas caixas de texto.

Tentei o seguinte codigo:

Private Sub btFiltrar_Click()
Dim j As Boolean, Filtro As String
If IsNull(Me!cboMotorista) Then j = True
If IsNull(Me!DataInicial) Then j = True
If IsNull(Me!DataFinal) Then j = True
If j = True Then
MsgBox "Preencha todos os campos...", vbInformation, "Aviso"
Me!cboMotorista.SetFocus
Exit Sub
End If
Filtro = "Car_Motorista = " & cboMotorista.Column(2)
Filtro = Filtro & " AND tblCargas.Car_DataSaida Between #" & Format(Me!DataInicial, "mm/dd/yyyy") & "# AND #" & Format(Me!DataFinal, "mm/dd/yyyy") & "#"
sfrmCos_Viagens.Form.Filter = Filtro
sfrmCos_Viagens.Form.FilterOn = True

End Sub


Deu erro de sintaxe (operador faltando) na expressão de consulta
'Car_Motorista = AND tblCargas.Car_DataSaida Between #09/01/2011# AND #09/30/2011#'

Não estou conseguindo descubrir onde está faltando o operador.

Se possível dê uma olhada no BdExemplo em anexo.

Desde de já agradeço.

Ola Isaias, veja a diferença e como funfa beleza;

Filtro = "Motorista = '" & cboMotorista.Column(0) & "'"
Filtro = Filtro & " AND [Data da Saída] Between #" & Format(Me!DataInicial, "mm/dd/yyyy") & "# AND #" & Format(Me!DataFinal, "mm/dd/yyyy") & "#"
Forms!frmCos_Viagens!sfrmCos_Viagens.Form.Filter = Filtro
Forms!frmCos_Viagens!sfrmCos_Viagens.Form.FilterOn = True

JPaulo,

Muito obrigado, tudo funcionando perfeitamente.

Valeu mesmo!!

Obrigado pelo retorno o forum agradece.