vb 6.0 如何连接access accdb 数据库呢？

首先要在工程的引用中选上Microsoft ActiveX Data Objects 2.5 Library
然后在事件中就可以定义相关的变量进行连接了
下面的例子可能对您有用：
Private Sub Command1_Click()
Dim Conn As New ADODB.Connection
Dim Rs As New ADODB.Recordset
Conn.Open connstring ="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & “数据库的路径和名字” & ";Persist Security Info=True;Jet OLEDB:Database Password= & "数据库密码"
sql = "Select * From “ & ”表名" & where ID=20"
Rs.Open sql, Conn, 1, 3
If NOT rs.eof then
m_date= rs("日期型字段的名字")
m_data= rs("数值型字段的名字")
end if
上面的例子实现了查询
如果是要添加,删除,更新等操作,只要编写相应的SQL语句,再用
Conn.Execute SQL 就可以了,如:
添加的:
SQL="Insert Into [UserInfo](User,Password) Values('aaaa','1234')"
Conn.Execute SQL '执行后,就添加了一条记录
删除:
SQL="Delete From [UserInfo] Where User='aaaa'"
Conn.Execute SQL '删除用户名为aaaa的用户记录
更新:
SQL="Update [UserInfo] Set Password='abcdefg' Where User='aaaa'"
Conn.Execute SQL '执行后,修改用户aaaa的密码为abcdefg
以上只是示例,在实际使用过程中,可以将一些内容用控件输入等方式进行,这样就有很大的灵活性了

如上所这，引用MSADO25.TLB，然后呢，把教科书说的...OLEDB4...改成如下，其它操作与操作MDB数据库一样，我是这么操作的。
ConnString1 = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=c:\tryaccess.accdb"
Microsoft.Jet.OLEDB.4.0不支持accdb，Microsoft.ACE.OLEDB.12.0支持accdb

用代码连接，举例如下：

adobe1可以直接连ACCESS，或用字符串连接.
Linkstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Sys_kuaidi.mdb;Persist Security Info=False"
con.Open Linkstr
rec.Open sql, con