VB中出现：找不到可安装的 ISAM

Dim conn As New OleDbConnection()
Dim cmd As New OleDbCommand()
Dim ds As New DataSet()
conn.ConnectionString = "provider=microsoft.jet.oledb.4.0;" & "date source=D:\opl.mdb"
conn.Open()
cmd.Connection = conn
cmd.CommandText = "select*from tpset;"
Dim da As New OleDbDataAdapter(cmd)
da.Fill(ds, "tpest")
DataGridView1.DataSource = ds.Tables("tpest")
conn.Close()

追问：谢谢啊，不过依旧没好啊……

答案：开始-运行
regsvr32 MSXBDE40.DLL 
regsvr32 MSEXCL40.DLL
regsvr32 MSTEXT40.DLL

上一个：vb 清除combox重复项问题
下一个：vb 图片转换成二进制存在一个变量里