Select não assume valor de Data

[Chamuanza 3]

Um bem Aja a todos

Tenho este Select que não assume o valor da variável DiaSorteio, e não sei mais o que fazer.

Se colocar a data com está no 1º Select funciona.

Com o valor da variável não assume, apresenta a Datagridview1 em branco sem resultado. Estou farto de alterar as plicas antes e dpois e não acerto. Agradeço uma ajuda.

Obrigado desde já

Dim DiaSorteio As Date = DateTimePicker1.Value

        Dim ConnectionString As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0; Data Source=C:\Users\Justino\Documents\Visual Studio 2013\Projects\TotoMilhoesNovo\TotoMilhoesNovo\bin\Debug\GuardarResultados.accdb")

        ' Dim Query As String = "SELECT Data,DiaSemana,Aposta,N1,N2,N3,N4,N5,E1,E2 FROM NumJogadosEUROMILHOES Where Data = #2017-05-19#"

        Dim Query As String = "SELECT Data,DiaSemana,Aposta,N1,N2,N3,N4,N5,E1,E2 FROM NumJogadosEUROMILHOES Where Data = " & DiaSorteio & ""

       
        Dim DataAdapter As New OleDbDataAdapter(Query, ConnectionString)
        Dim MyData As New DataSet
        DataAdapter.Fill(MyData, "NumJogadosEUROMILHOES")


        ' Neste caso utilizei uma datagridview para visualizar os dados
        Me.DataGridView1.DataSource = MyData.Tables("NumJogadosEUROMILHOES")

 

Edited May 20, 2017 by Chamuanza
Alterar texto

[vikcch 18]

Dim DiaSorteio As Date = DateTimePicker1.Value

Dim sData As String = "#" & DiaSorteio.Date & "#"

'....

Dim Query As String = "SELECT Data,DiaSemana,Aposta,N1,N2,N3,N4,N5,E1,E2 FROM NumJogadosEUROMILHOES Where Data = '" & sData & "'"

Vê-lá se é isso

[Chamuanza 3]

Oi Vikcch Obrigado pela atenção

Testei e apresenta este Erro 

An unhandled exception of type 'System.Data.OleDb.OleDbException' occurred in System.Data.dll

Additional information: Tipo de dados incorrecto na expressão de critérios.

[vikcch 18]

e com os cardinais fora própria query?

Dim Query As String = "SELECT Data,DiaSemana,Aposta,N1,N2,N3,N4,N5,E1,E2 FROM NumJogadosEUROMILHOES Where Data = #'" & DiaSorteio.Date & "'#"

tambem podes ter problemas relacionados com o data americana e portuguesa

experimenta tambem sem as plicas

devias usar paramentos para fazer a consulta... pesquisa por consulta parametrizada access

Edited May 20, 2017 by vikcch

[Chamuanza 3]

Dá erro na mesma " Additional information: Erro de sintaxe na data na expressão de consulta 'Data = #'2017-05-19''.

No entanto na primeira dica que enviaste embora não resulte o valor final  da variável é sData= #2017-05-19# que por sinal igual ao valor que funciona quando faço o select com ele

É isso que não compreendo

[Chamuanza 3]

Oi Vikcch consegui acertar com

  Dim Query As String = "SELECT Data,DiaSemana,Aposta,N1,N2,N3,N4,N5,E1,E2 FROM NumJogadosEUROMILHOES Where Data =" & sData & ""

Obrigado pela atenção