Estou com o seguinte problema no filtrosql no vb6 acessando uma tabela do bando de dados sql server 2000:

FILTROSQL = "SELECT * FROM AH010 WHERE"
EXPSQL = "[AH_CHAPA] = '" & CboChapa.Text & "'"
EXPSQL = EXPSQL & "AND"
EXPSQL = EXPSQL & "[AH_DATA] = '" & txtData.Text & "'"
FILTROSQL = FILTROSQL & EXPSQL
RSSQL.Open FILTROSQL
If Not RSSQL.EOF Then
   MsgBox "Apropriação de Hh duplicada", vbInformation
   CboChapa.SetFocus
   RSSQL.Close
   Exit Sub
End If
Obs: Não da erro, o problema que não entra dentro da condição de ja existe esse registro na tabela, eu percebi que o erro esta no filtro da data, o campo data é do tipo datetime, como deve ser então o filtro ?

 

Obrigado

Paulo Ricardo

quando voce passa uma instrução sql deve seguir os padrões americanos inclusive de data ou seja formata a data para (mm/dd/yyyy)