Date insertation Problem 1

[n1a2v3i3n]

Hi,

I am trying to input date to database using combobox. as follows

dim d as date
dim da as date

da = c1 & "/" & c2 & "/" & c3
d = Format(CDate(da), "dd/mm/yy")

With Adodc1
.AddNew
MsgBox " Date " & d
!daterem = Format(CDate(da), "dd/mm/yy")
MsgBox "Date Entered is " & !daterem
!vechno = txtvecno
!ecmserial = txtecmsno
!ECMpart = txtecmpno
!fault = txtflt
!Condition = Comcon

.Update
.Requery
End With

Here for example I input 26/1/2009 through combo box.
When this i moved to database it gets becomes 1/9/2026.

Could any one please tell me wht is the error and how to solve it

 

[PHV]

Which database engine ?
What are c1, c2 and c3 ?

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886

 

[n1a2v3i3n]

Engine is Microsoft.Jet.OLEDB.4.0.
C1, C2 and C3 as combobox

 

[PHV]

You may try this:
!daterem = CDate(da)

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886