如何用vb访问access2000

Question

我想用vb访问access2000，用如下代码，但是怎么也不能运行，请指点指点，谢谢
Dim conn As New ADODB.Connection
Dim rec As New ADODB.Recordset
Dim cmd As New ADODB.Command
Dim strSql As String
Dim strcnn As StringstrSql = "select * from user"
strcnn = "uid=qhz;pwd=;DRIVER={ Microsoft Access Driver (*.mdb) };DBQ=" & App.Path & "\user.mdb"
Set conn = New ADODB.Connection
conn.Open strcnn
Set rec = New ADODB.Recordset
Set cmd = New ADODB.Command
Set cmd.ActiveConnection = conn
cmd.CommandText = strSql
Set rec = cmd.Execute如果愿意，请给我发一段能运行的代码，谢谢

Answer 1

Dim conn As New ADODB.Connection
Dim rec As New ADODB.Recordset
Dim cmd As New ADODB.Command
Dim strSql As String
Dim strcnn As String'我在我的机上调试时，出现了表名不能用user的错误，将表名改为userinfo后调试正常
strSql = "select * from userinfo"
strcnn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\test\user.mdb;Persist Security Info=False"
Set conn = New ADODB.Connection
conn.Open strcnn
Set rec = New ADODB.Recordset
Set cmd = New ADODB.Command
Set cmd.ActiveConnection = conn
cmd.CommandText = strSql
Set rec = cmd.Execute

Answer 2

建议安装sp5
http://www.sijiqing.com/vbgood/tools/index.asp?action=read&id=51

Answer 3

User表是系统的表，不能用，我也遇到过类似的问题

Answer 4

表改名，或者将表名括起来
strSql = "select * from [user]"