Data type mismatch when running a SQL select (1 Viewer)

Below is a query I can run without a problem. But when I try to convert it to VBA, I get a data type mistmatch.

If you could, can you tell me why the SQL does not work.

Thanks

Query built via Create:

SELECT dbo_BarPeStatusVectors.VisitID, dbo_BarPeStatusVectors.PeriodDateTime, dbo_BarPeStatusVectors.BarStatus, dbo_BarPeStatusVectors.ArAgeDateTime, dbo_BarPeStatusVectors.BillingID
FROM dbo_BarPeStatusVectors
WHERE (((dbo_BarPeStatusVectors.PeriodDateTime)=#4/30/2012#) AND ((dbo_BarPeStatusVectors.BarStatus) Not In ("BD","CL")) AND ((dbo_BarPeStatusVectors.BillingID) Not In ("19162","27901")))
ORDER BY dbo_BarPeStatusVectors.VisitID;


Module using SQL code:

Sub Vector()
Dim SQL As String


Dim qdef As DAO.QueryDef

CurrentDb.QueryDefs.Delete "qryVectorList"
Set qdef = CurrentDb.CreateQueryDef("qryVectorList", SQL)

SQL = "SELECT dbo_BarPeStatusVectors.VisitID, dbo_BarPeStatusVectors.PeriodDateTime, dbo_BarPeStatusVectors.BarStatus, dbo_BarPeStatusVectors.ArAgeDateTime, dbo_BarPeStatusVectors.BillingID" & _
SQL = SQL & " FROM dbo_BarPeStatusVectors" & _
SQL = SQL & " WHERE (((dbo_BarPeStatusVectors.PeriodDateTime)= )=#4/30/2012#) AND ((dbo_BarPeStatusVectors.BarStatus) Not In ('BD','CL')) AND ((dbo_BarPeStatusVectors.BillingID) Not In ('19162','27901')))" & _
SQL = SQL & " ORDER BY dbo_BarPeStatusVectors.VisitID;"



DoCmd.OpenQuery "qryVectorList", acViewNormal



End Sub


Thanks

GPSPOW

Try this:
SQL = "SELECT dbo_BarPeStatusVectors.VisitID, dbo_BarPeStatusVectors.PeriodDateTime, dbo_BarPeStatusVectors.BarStatus, dbo_BarPeStatusVectors.ArAgeDateTime, dbo_BarPeStatusVectors.BillingID" & _
" FROM dbo_BarPeStatusVectors" & _
" WHERE (((dbo_BarPeStatusVectors.PeriodDateTime)= )=#4/30/2012#) AND ((dbo_BarPeStatusVectors.BarStatus) Not In ('BD','CL')) AND ((dbo_BarPeStatusVectors.BillingID) Not In ('19162','27901')))" & _
" ORDER BY dbo_BarPeStatusVectors.VisitID;"

And try this:
SQL = "SELECT dbo_BarPeStatusVectors.VisitID, dbo_BarPeStatusVectors.PeriodDateTime, dbo_BarPeStatusVectors.BarStatus, dbo_BarPeStatusVectors.ArAgeDateTime, dbo_BarPeStatusVectors.BillingID"
SQL = SQL & " FROM dbo_BarPeStatusVectors"
SQL = SQL & " WHERE (((dbo_BarPeStatusVectors.PeriodDateTime)= )=#4/30/2012#) AND ((dbo_BarPeStatusVectors.BarStatus) Not In ('BD','CL')) AND ((dbo_BarPeStatusVectors.BillingID) Not In ('19162','27901')))"
SQL = SQL & " ORDER BY dbo_BarPeStatusVectors.VisitID;"