记录集的run-time error '430'

Question

Private Sub Form_Load()
Dim i As Integer
 Dim db As Connection
  Set db = New Connection
  db.Open SQLConnStr
 * Set adoPrimaryRS = New Recordset
  adoPrimaryRS.CursorLocation = adUseClient
 SQL = "SELECT * FROM table where ID<>NULL"
  adoPrimaryRS.Open SQL, db, adOpenDynamic, adLockBatchOptimistic
   Set dgList.DataSource = adoPrimaryRS.Clone
   dgList.Refresh
   adoPrimaryRS.Close
 mbDataChanged = False
End Sub
上面这段程序在别的机器（windowsXP)上没有问题，但在另一台机器(windows98)上*处报错:Run-time error'430':class does not support automation or does not support expected interface.

Answer 1

我以前也碰到过这个问题，要安装mdac2.5版本以上的，在微软的网站上有下的

Answer 2

to appleboyallen(揪揪):
按你的指点做，问题解决了。但如果打包的话，还要包mdac吗？

Answer 3

比如你的程序用的是ADO2.6，但是别的机器只支持ADO2.1，就会出现这样的错误。所以要安装正确版本的MDAC。
这是个被称为“DLL Hell”的问题，据称在ADO.Net里已经解决了