Filtrar Vários Campos

Question

Srs Boa Tarde
Sou iniciante em VB.NET e estou elaborando um sistema de contas a pagar e receber. O cadastro eu já consegui fazer. Tenho um formulário de relatório dessas contas onde eu tenho um combo (Pagar, Pago Receber, Recebida) outro combo (Fornecedores) uma TextBox ( Data Inicial ) e outra TextBox (Data Final ) e uma DataGridView e estou precisando filtrar nessa DataGridView o seguinte, por EX:
Todas as contas a Pagar de um Fornecedor ( x ) no período de 11/11/1111 até 22/22/2222, e o resultado será mostrado na DataGridView.
Os dados estão gravados no Access 2007 e estou usando Visual Studio 2010.

Eu só consegui filtrar as datas, segue abaixo o código e a tela do relatório.

 Private Sub btnFiltrar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnFiltrar.Click

If btnFiltrar.Text = "Filtrar" Then       

            If Trim(CmbPosicaoConta.Text) = "" Then
                If MsgBox("VOÇE DEVE ESCOLHER UMA POSIÇÃO DA CONTA", MsgBoxStyle.Information, "POSIÇÃO DA CONTA") Then ': Exit Sub
                    CmbPosicaoConta.Focus()
                    Exit Sub
                End If
            End If

            da = New OleDbDataAdapter
            ds = New DataSet
            conn = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=..\cadastro.mdb;jet oledb:database password=adm")
            da = New OleDbDataAdapter("SELECT * FROM Contas WHERE posicaoconta LIKE '" & CmbPosicaoConta.Text & "%' ", conn)


            da = New OleDbDataAdapter("select * from Contas where vencimento >=#" & TextBox1.Text & "# and vencimento<=#" & TextBox2.Text & "#", conn)
            cb = New OleDbCommandBuilder(da)


            ObterDados()
            da.Fill(ds, "Cadastro")
            dgContas.DataSource = ds.Tables(0)
            btnFiltrar.Text = "Todos"
        Else
            btnFiltrar.Text = "Filtrar"
            ObterDados()
            Dispose()
            Dim f As New RelaContasCompleto
            f.Show()
        End If
    End Sub
End Class