Visual Basic - como realizar una consulta de dos variables en un datagridview

Buenas tardes, estoy realizando un programa donde necesito realizar la una cosulta entre dos fechas y el tipo de vehiculo si es carro o es moto, ya realice la busqueda entre fechas, pero no se como realizar la busqueda al mismo tiempo entre las fechas y el tipo de vehiculo, aca dejo el codigo de la consulta entre fechas, gracias por su colaboracion.

Sub ConsultaRegistrosEntreFechas(ByVal tabla As DataGridView, ByVal FECHAT2 As Date, ByVal FECHAT3 As Date)

Dim consultar As String
Dim lista As Byte

consultar = "SELECT * FROM DATOSP WHERE FECHA between '" & FECHAT2 & "' and '" & FECHAT3 & "'"
adaptador = New OleDbDataAdapter(consultar, cm)
registros = New DataSet
adaptador.Fill(registros, "DATOSP")
lista = registros.Tables("DATOSP").Rows.Count
If lista <> 0 Then
PQDATOS.DataSource = registros
PQDATOS.DataMember = "DATOSP"

Else
MsgBox("REGISTRO NO ENCONTRADO", vbCritical, "ATENCION")
PLACAT.Clear()
PLACAT.Focus()
End If


End Sub