SELECT EM CAMPO DATA NO VB 6

Select * From Pedidos Where Data >= [ô]01/01/2015[ô]

Citação:

:
Pessoal,

Boa tarde!

Ao fazer o select abaixo, a seguinte mensagem de erro ocorre: Syntax Error in string query expression.

Preciso fazer um select em uma tabela onde guardo os lançamentos do caixa, portanto, a data sempre vem atribuida com a data do sistema.

Uso banco Access e conforme dito, segue o código:

Private Sub txtvalor_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then
If txtvalor > msaldo Then
MsgBox [Ô]Você não pode fazer este lançamento. Saldo insuficiente.[Ô], vbCritical, [Ô]Confirmação[Ô]
txtvalor.SetFocus
Exit Sub
Else
If MsgBox([Ô]Confirma o lançamento?[Ô], vbQuestion + vbYesNo, [Ô]Confirmação[Ô]) = vbYes Then
TLancDesp.Index = [Ô]IdxLancDesp[Ô]
TLancDesp.Seek [Ô]=[Ô], txtlancamento, txtconta, txtdata

If TLancDesp.NoMatch Then
TLancDesp.AddNew
TLancDesp([Ô]IdLancDesp[Ô]) = TLancDesp.RecordCount + 1
TLancDesp([Ô]idlancamento[Ô]) = Val(txtlancamento)
TLancDesp([Ô]IdConta[Ô]) = Val(txtconta)
TLancDesp([Ô]descricao[Ô]) = Left(Label12, 20)
TLancDesp([Ô]IdEmpresa[Ô]) = txtempresa
TLancDesp([Ô]data[Ô]) = txtdata
TLancDesp([Ô]valor[Ô]) = txtvalor
TLancDesp.Update
TLancDesp.Refresh
Else
MsgBox [Ô]Já existe um lançamento nesta conta com a mesma data.[Ô], vbCritical, [Ô]Confirmação[Ô]
txtconta.SetFocus
Exit Sub
End If
Else
Exit Sub
End If
End If
msaldo = msaldo - txtvalor
txtsaldoatual = Format(msaldo, [Ô]#0.00[Ô])
txtconta = [Ô][Ô]
txtvalor = [Ô][Ô]
Label12 = [Ô][Ô]
btnverlanc_Click
txtconta.SetFocus
End If
End Sub

Private Sub btnverlanc_Click()
[ô]mostra lançamentos efetuados

sqllancamento = [Ô]SELECT * FROM LANCAMENTODESP WHERE IDEMPRESA LIKE [ô][Ô] & txtempresa & [Ô][ô] AND DATA >= #[Ô] & Format(txtdata, [Ô]yyyy/mm/dd[Ô]) & [Ô]#[ô][Ô] [ô]AND DATA #[Ô] & txtdata & [Ô]#[ô][Ô]
datadesp.RecordSource = sqllancamento
datadesp.Refresh
End Sub

O resultado desta pesquisa, aparece em uma grid. Anexo segue projeto completo caso precisem.

Obrigado a todos.