如何连接Access数据库？

[qhdzh]

我用如下代码连接Access数据库，可是总是报错，不知是什么原因？、
Dim dbM As New System.data.OleDb.OleDbConnection
dbM.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Application.StartupPath & "\SYS32\Cutebear.dll" & ";Jet OLEDB:Database Password=123;"
dbM.Open()

[qhdzh]

其中Cutebear.dll应为Cutebear.mdb

[水如烟]

Const strConnectionString As String = "Driver={{Microsoft Access Driver (*.mdb)}};DBQ={0};Uid={1};Pwd={2};"

Cn.ConnectionString = String.Format(strConnectionString, App.Path & "\Customer.mdb", "admin", "434100")

[wangsaokui]

dbM.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Application.StartupPath & "\SYS32\Cutebear.mdb;User Id=admin;Password=123;"

[qhdzh]

楼上的兄弟，还是不行呀，出现如下提示：
未处理的“System.Data.OleDb.OleDbException”类型的异常出现在 system.data.dll 中。

[leeyeefeng2004]

命名空间：
imports system.data.oledb

代码中写：
dim strCon as string="Provider=Microsoft.Jet.Oledb.4.0;data source=数据库路径咯~~;"
dim objConnection as new oledbConnection(strCon)

dim strSql AS STRING ="SQL语句咯~~"

dim objCommand as new oledbCommand(strSql,objConnection)

objconneciton.open()
这里用的是COMMAD对象..这个随便你咯~~

[leeyeefeng2004]

USER ID="" PASSWORD=""写在连接字符窜后面咯~~

[liuyi3000]

命名空间：
imports system.data.oledb
代码：
dim olecn as new oledbconnection("Provider=Microsoft.Jet.Oledb.4.0;data source=数据库")
olecn.open()

[matinpetrov]

添加一个oledbconnection控件,在他的connectionstring属性里生成连接不容易出错

[yuanyechinese]

可以建立一个 Microsoft数据连接 文件，然后皆可以直接使用了。

建立方法：右单击——“新建”——“Microsoft数据连接”

[LiloZhu]

Dim fileinfo As New IO.FileInfo(Application.ExecutablePath)
str_conn &= fileinfo.DirectoryName & "\database.mdb" '找到你的database

Private str_conn As String = "provider=microsoft.jet.oledb.4.0;User Id=admin;Password=;data source=" '數據庫連接定義

Dim str_sql As String
str_sql = "select * from tree" ‘sql語句定義
Dim obj_comm As New OleDb.OleDbConnection(str_conn)
obj_comm.Open()
Dim obj_da As New OleDb.OleDbDataAdapter(str_sql, obj_comm)
obj_da.Fill(ldtb_temp) ’將數據填充於一個datatable