[求助]

vivian1205

我初学Access ，用的是Access 2003。在按着某本书编写一个小型设备管理系统时，对组合框“设备编号”的代码编写做不到通过组合框“设备编号”调出设备编号对应的“设备名称”值。能力有限，希望大家指点一下。
Private Sub 代号_LostFocus()

Dim con As Object

Dim rs As New ADODB.Recordset

Set con = Application.CurrentProject.Connection

strsql = "select 设备名称 from 新设备报表 where 设备编号=" + Me.设备编号.Text + ""

rs.Open strsql, con, 1, adLockBatchOptimistic

If rs.RecordCount >0 Then

Form.AllowEdits = True

Me.设备名称.SetFocus

Me.设备名称.Text = rs("设备名称")

End If
End Sub
但是结果显示：编译错误，方法和数据成员未找到。[em06]

[此贴子已经被作者于2006-12-1 10:05:32编辑过]