帮我看看哪错了?

Question

定义一个ado的数据库连接
Public cN As New ADODB.Connection
'定义一个ado的数据库记录集
Public rS As New ADODB.Recordset
'声明一个SQL语句字符串
Public strSQL As String

Sub main()
cN.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\database.mdb"
cN.CursorLocation = adUseClient
Form1.Show
End Sub

Private Sub Form_Load()
strSQL = "select * from stock where ID=" & """" & Trim(txtID) & """"
'执行strSQL中定义的查询语句
Set MSHFG.DataSource = cN.Execute(strSQL)
End Sub

这个我是在网上看来的
但出现错误
错误类型:用户定义类型未定义
要怎么改?具体点
还有就是各部分代表什么?
不明白,麻烦帮我改好了.....整个代码加起来发一发,......
谢谢

Answer 1

未定义好，应该要这样：

cN.CursorLocation = adUseClient
cN.Mode = adModeReadWrite
cN.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\database.mdb;Jet OLEDB:DataBase Password="
cN.Open

---------------------------------------
strSQL = "select * from [stock] where [ID]='" & Trim(txtID.Text) & "'"

rS.Open strSQL,cN,adOpenKeyset, adLockReadOnly
Set MSHFG.DataSource = rS

至于这个 MSHFG.DataSource 必须要支持ADO格式的数据源，否则会出错。