> "WHERE DateBegin BETWEEN strDateStart AND strDateEnd' "

"Kissi" <Kissi@cox.net> wrote in message
news:eA5utrN1DHA.3656@TK2MSFTNGP11.phx.gbl...
> Could anyone help me with this Please, below is the code I've been trying
> but it's not working. A user selects a start date and an end date. Table
has
> a BeginField and EndField. If dates selected by the user exist in the
> database, the prompt user(Dates not available).
>
> Dim strSQL As String
> Dim strDateStart As String
> Dim strDateEnd As String
> strDateStart = InputBox("Enter Begin Date ")
> If strDateStart = vbNullString Then
> Exit Sub
> Else
> strDateEnd = InputBox("Enter End Date")
> If strDateEnd = vbNullString Then
> Exit Sub
> strSQL = "SELECT * FROM Driver " & _
> "WHERE DateBegin BETWEEN strDateStart AND strDateEnd' "
>
> Set cmdDriver.ActiveConnection = conDriver
> cmdDriver.CommandType = adCmdText
> cmdDriver.CommandText = strSQL
> rsDriver.Open cmdDriver
> rsDriver.Requery
> If rsDriver.EOF Then
> MsgBox "Date Available.", vbOKOnly
> Else
> MsgBox "Date Not Available.", vbOKOnly
> End If
> End If
> End If
> End Sub
>
>