哪位高手帮我看看以下代码哪里有错误?
我的计算机名是computer,数据库名是htgl,scbm是htgl下的表名,设置ODBC的DSN为Myserver
Private WorkSpace As WorkSpace
Private DataBase As DataBase
Private RecordSet As RecordSetPrivate Sub Form_Load()
Dim sql As String
Set WorkSpace = CreateWorkspace("", "admin", "", dbUseJet)
Set DataBase = WorkSpace.OpenDatabase("computer", False, False, "ODBC;DSN=Myserver;UID=sa;pwd=;DataBase=htgl")
sql = "select * from scbm"
Set RecordSet = DataBase.OpenRecordset(sql, dbOpenDynaset, dbSeeChanges)
End Sub