运行时错误380，vb6中的属性无效

我用vb6开发了一个应用程序，它在Windows XP中正常运行，但当我尝试在Windows 7上运行它时，它显示运行时错误380，无效属性。以下是导致错误的代码：

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 produces 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

---

注意：我在这里创建了DateCheck.ocx，我使用的是cdDate。

将该行分成多个步骤，以找出导致错误的部分

Dim vnt As Variant
vnt = rs!PF_DATE
Dim sDate As String 
sDate$ = Format(vnt, "dd/mm/yyyy")
cdDate.Text = sDate

---

然后进一步调查：）

如果

cdDate

是

DateTimePicker

，您很可能应该使用

.Value

属性，而不是

。Text

检查以下解决相同问题的问题：cdDate是什么类型的控件？Win 7电脑上的区域设置（尤其是日期格式）是否与Win XP电脑上的相同？它在哪一行出现故障？