3
I have a VB6 project with sql 2000 DB.Problem is when trying to run a report and i get this error "Conversion of a char data type resulted in an out-of-range datetime value"
How do i fix this error.Here is the code:(where code is in bold is where the error is)
Private Sub cmdEnter_Click()
Dim startdate As Date
Dim enddate As Date
Dim vehicle As String
Dim travelled_km As Integer
startdate = CDate(mskStartDate.Text)
enddate = CDate(mskEndDate.Text)
vehicle_reg = cbovehicle_reg.Text
serviceprovided = "fuel"
travelled_km = 0
If CDate(mskEndDate) > Date Then
MsgBox "PLEASE ENTER VALID END DATE", vbCritical
mskEndDate.SetFocus
Exit Sub
End If
Set rsFuel = New ADODB.Recordset
rsFuel.Open "select * from Logsheet where vehicle_reg ='" & cbovehicle_reg.Text & "'and date >=CDATE('" & startdate & "')and date <= CDATE('" & enddate & "')", cnConnect, adOpenDynamic, adLockOptimistic
If Not rsFuel.BOF Then
rsFuel.MoveFirst
End If
Do While Not rsFuel.EOF
travelled_km = travelled_km + rsFuel!travelled_km
rsFuel.MoveNext
Loop
DataEnvironment1.cmdFuelUsage startdate, enddate, vehicle_reg, serviceprovided
With rptFuelUsage
.Sections("Section4").Controls("lblreportheader"). Caption = " From " & " " & startdate & " " & " To " & enddate
.Sections("Section4").Controls("lblvehiclereg").Ca ption = cbovehicle_reg.Text
.Sections("Section5").Controls("lbltravelled_km"). Caption = travelled_km
End With
rptFuelUsage.Show
Unload DataEnvironment1
cbovehicle_reg = " "
