DateTime Comparing

[kbooker23]

hey i need to pull out the data from the database by day. In the database the field is a MySQL datetime. I just want to do a count for all records with a sertain day. my code is :

Dim bdwsmtCon As New Odbc.OdbcConnection("Driver={MySQL ODBC 3.51 Driver};server=192.168.2.5;port=3306;database=bdwsmt;pwd=knicks24;uid=tmstms;")
                Dim bdwsmtCommande As New Odbc.OdbcCommand
                Dim bdwsmtReader As Odbc.OdbcDataReader
                Dim dblStartDay As Double = 0
                Dim dblEndDay As Double = -1
                Dim strSQL As String     'Select statment                
                Dim curDate As String    'curDate
                Dim startDate As String    'end string for sql statment

curDate = startDateTimePicker.Value.AddDays(dblStartDay).ToString("M/d/yyyy")
                startDate = startDateTimePicker.Value.AddDays(dblEndDay).ToString("M/d/yyyy")

strSQL = "SELECT Count(*) FROM wab_answers WHERE wabScreen=1 And date(answerTime) = " & curDate & ";"
                    bdwsmtCommande = New Odbc.OdbcCommand(strSQL, bdwsmtCon)
                    bdwsmtCommande.Connection.Open()
                    bdwsmtReader = bdwsmtCommande.ExecuteReader(CommandBehavior.CloseConnection)
                    sheet.Cells(lngRow, 4) = curDate
                    While bdwsmtReader.Read
                        sheet.Cells(lngRow, 5) = bdwsmtReader.GetValue(0)                        
                    End While

Everything that i try always returns 0 for my count....???? getting very frustrated...Hope someone can help

 

[lingsn]

May be is something like this

Dim bdwsmtCon As New Odbc.OdbcConnection("Driver={MySQL ODBC 3.51 Driver};server=192.168.2.5;port=3306;database=bdwsmt;pwd=knicks24;uid=tmstms;")
                Dim bdwsmtCommande As New Odbc.OdbcCommand
                Dim bdwsmtReader As Odbc.OdbcDataReader
                Dim dblStartDay As Double = 0
                Dim dblEndDay As Double = -1
                Dim strSQL As String     'Select statment                
                Dim curDate As String    'curDate
                Dim startDate As String    'end string for sql statment

curDate = startDateTimePicker.Value.AddDays(dblStartDay).ToString("yyyy-MM-dd")
                startDate = startDateTimePicker.Value.AddDays(dblEndDay).ToString("M/d/yyyy")

strSQL = "SELECT Count(*) FROM wab_answers WHERE wabScreen=1 And date(answerTime) = '" & curDate & "';"
                    bdwsmtCommande = New Odbc.OdbcCommand(strSQL, bdwsmtCon)
                    bdwsmtCommande.Connection.Open()
                    bdwsmtReader = bdwsmtCommande.ExecuteReader(CommandBehavior.CloseConnection)
                    sheet.Cells(lngRow, 4) = curDate
                    While bdwsmtReader.Read
                        sheet.Cells(lngRow, 5) = bdwsmtReader.GetValue(0)                        
                    End While