pesquisa no bd pela aplicação

[RaphaelML]

Com a seguinte linha de código eu consigo que apareça no meu datagrid as informações de vendas daquele dia em questão

Private Sub btn_buscar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_buscar.Click

Dim strdia, strmes, strano, strdata As String

strdia = Calendario.SelectionStart.Day

strmes = Calendario.SelectionStart.Month

strano = Calendario.SelectionStart.Year

strdata = strdia + "/" + strmes + "/" + strano

Me.DataTable1BindingSource.Filter = "DATA_DA_VENDA = '" + strdata + "'"

Me.DataTable1TableAdapter.Fill(Me.CARLINHOS_BARDataSet.DataTable1)

End Sub

porém eu percebi que quando eu executo esse comando ele não me mostra realmente todas as vendas como vocês podem ver aqui nas imagens eu estou com 8 vendas efetuadas 7 delas no dia 06 porém quando vou puxar o relatório específico ele me retorna apenas 5 vendas do dia 06. Percebi que não aparecem as vendas que foram feitas pra uma mesma pessoa.

e quando executo o comando...

eu preciso que além de no meu form_relat_cliente ele mostre todas as vendas do período especificado, como também pesquisar por cliente.

Porém não sei o que adicionar a minha linha de código.

Será q vocês podem me ajudar ?