I have written a program in VB6 which was running properly in Windows XP but now when I am trying to run the same program in Windows 2007 it is giving runtime error 380, invalid property. Here I am giving the code which generating the error. Private Sub getData() txtID.Text = rs!emp_id & "" txtDept.Text = rs!dept_name & "" txtDesig.Text = rs!desig_name & "" txtName.Text = rs!emp_name & "" txtPFNo.Text = rs!PF_ACC_NO & "" cdDate.Text = Format(rs!PF_DATE, "dd/mm/yyyy") (This line is generating the error) txtOwnSubs.Text = rs!SubsO & "" txtUCont.Text = rs!ContU & "" txtOptional.Text = rs!Optional & "" txtLoanSanc.Text = rs!LoanSanc & "" txtLoanRec.Text = rs!LoanRecovery & "" txtInt.Text = rs!RateOfInt & "" txtOSubs.Text = rs!OpeningO & "" txtOcont.Text = rs!OpeningU & "" txtCSubs.Text = rs!ClosingO & "" txtCCont.Text = rs!ClosingU & "" txtIntDurOwn.Text = rs!InterestO & "" txtIntDurCont.Text = rs!InterestU & "" txtIntUptoOwn.Text = rs!CInterestO & "" txtIntUptoCont.Text = rs!CInterestU & "" txtTotIntO.Text = rs!CInterestO & "" txtTotIntC.Text = rs!CInterestU & "" txtWithdrawn.Text = rs!withdrawn & "" If rs!Type & "" = "N" Then cboType.ListIndex = 0 Else cboType.ListIndex = 1 End If End Sub I have created DateCheck.ocx and from there cdDate was created for handling the date field. Please help me to solve the problem.

Software/Hardware used:
Visual Basc 6, Crystal Report 6.00