vb ado问题

Imports System.Data.OleDb
Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim a As New OleDbConnection("provider=microsoft.jet.oledb.4.0;data sourse=" & Application.StartupPath & "\d:\1\nba.mdb")
a.Open()
Dim b As New OleDbCommand("select * from cba", a)
Label1.Text = b.ExecuteScalar.ToString()
a.Close()
End Sub
End Class

我创建的access数据库放在d:\1\nba.mdb

运行后会显示：找不到可安装的 ISAM。

请问错在哪，帮忙改一下，谢谢

解决方案
检查 MSACC20.INI 文件
要这样做, 请按照下列步骤操作：
1. 在文本编辑器, （如记事本） 打开 MSACC20.INI 文件。
2. 找到 [ 安装 ISAMs ] 部分并注意 ISAM 驱动程序的路径： [Installable ISAMs]
Paradox 3.X=C:\Windows\System\Pdx200.dll
Paradox 4.X=C:\Windows\System\Pdx200.dll
FoxPro 2.5=C:\Windows\System\Xbs200.dll
FoxPro 2.6=C:\Windows\System\Xbs200.dll
FoxPro 2.0=C:\Windows\System\Xbs200.dll
dBASE III=C:\Windows\System\Xbs200.dll
dBASE IV=C:\Windows\System\Xbs200.dll
Btrieve=C:\Windows\System\Btrv200.dll


3. 启动 WindowsExplorer （或文件管理器） 并找到 ISAM 驱动程序 MSACC20.INI 文件中列出。 如果没有找到驱动程序在指定位置, 您需要重新安装 ISAM 驱动程序。 要这样做, 请按照下列步骤操作： a. 文本编辑器中打开 MSACC20.INI 文件并注释 ISAM 部分由进入分号 (;) 中的每行, 例如前面： [Installable ISAMs]
;Paradox 3.X=C:\Windows\System\Pdx200.dll
;Paradox 4.X=C:\Windows\System\Pdx200.dll
;FoxPro 2.5=C:\Windows\System\Xbs200.dll
;FoxPro 2.6=C:\Windows\System\Xbs200.dll
;FoxPro 2.0=C:\Windows\System\Xbs200.dll
;dBASE III=C:\Windows\System\Xbs200.dll
;dBASE IV=C:\Windows\System\Xbs200.dll
;Btrieve=C:\Windows\System\Btrv200.dll


b. 保存 MSACC20.INI 文件并关闭文本编辑器。
c. 启动 Microsoft Access 安装程序。
d. 单击 " 添加/删除程序 " 按钮。
e. 单击以清除 " ISAM 驱动程序 " 以卸载安装 ISAM 驱动程序, 然后单击继续。 按照说明在屏幕上以完成卸载过程。

Application.StartupPath 去掉！