用户类型未定义错误的问题

costly

我在ACCESS97里可以实现在组合框的数据传递功能(比如说在点选窗体中的组合框的值的时候就可以把下一个栏位的值带出在另一个文本框里),可是到了ACCESS2003里却无法实现相同的功能,我把相同在97可以实现的代码COPY到2000里后,它就出现了问题,请问有没有办法在2000里可以实现如此功能的办法呢?在97里可以正确执行的代码如下:

Private Sub PDN_AfterUpdate()

Dim Dbs As Database

Dim Rst As Recordset

Dim WN

Set Dbs = CurrentDb()

WN = [ProviderNo]

Set Dbs = Rst.OpenRecordset("SELECT ProviderInfo.ProviderN FROM ProviderInfo WHERE (((ProviderInfo.[ProviderNO])='" & WN & "'));")

PN = Rst!ProviderN

Rst.Close

End Sub

把这段代码放在2000里的时候它在Dim Dbs As Database处执行不下,报用户类型未定义的错误

      

Benjamin_luk

请列出你的数据库引用在代码设计状态下, 工具 -> 引用[em05]