一个函数,谁能告诉我错误在那里??(在线等待!)
Private Sub fillcontrols()
Dim tmpstr As String
Dim rs As New ADODB.Connection
Set rs = Nothing
On Error GoTo Destory
tmpstr = "select * from customer where telephone1=" & TransSQLChar(Trim(m_telephone)) & _
" or telephone2=" & TransSQLChar(Trim(m_telephone)) & _
" or fax=" & TransSQLChar(Trim(m_telephone))
Set rs = pADO.Connection.Execute(tmpstr, , adCmdText)
MsgBox "victory", vbExclamation, ""
txtCustomer.Text = "" & rs!CustomerID -----------显示是此处的“rs”出问题!
txtCustomerName.Text = "" & rs!DescC
txtAddress.Text = "" & rs!AddressC
txtZJR.Text = "" & rs!zjjr
txtflfs.Text = "" & rs!flxz
txtjsyq.Text = "" & rs!jsyq
txtSFBZ.Text = "" & rs!tcsfbz
txtTSJG.Text = "" & rs!tsjg
txtbl.Text = "" & rs!bxbl
txtysfs.Text = "" & rs!ysfs
txtRemark.Text = "" & rs!Remark
txttime.Text = "" & rs!foundtime
Destory:
MsgBox Err.Description, vbCritical, "提示"
End Sub
执行的时候,错误提示:
错误的参数号或无效的属性设置!