Dim Conn As New ADODB.Connection
        Dim Rs As New ADODB.Recordset
        Conn.ConnectionString= "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\备件管理系统\equipmentDB.mdb;Persist Security Info=False"
        Conn.Open()
        strACC = "select * from user where User='&UserName&'"
        Rs.Open(strACC, Conn, 1, 1)   '运行到此出错

在VB中调用access数据库时出现错误

Dim Conn As New ADODB.Connection
        Dim Rs As New ADODB.Recordset
        Conn.ConnectionString= "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\备件管理系统\equipmentDB.mdb;Persist Security Info=False"
        Conn.Open()
        strACC = "select * from user where User='&UserName&'"
        Rs.Open(strACC, Conn, 1, 1)   '运行到此出错

     出现System.Runtime. HResult=0x80错误。

我用的是Visual Studio 2017
数据库是Access 2003

求高手赐教！

我一般是这么调用的
dim cn As New ADODB.Connection
dim rs As New Recordset
Conn1 = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & app.path & "\film.mdb"'此条语句根据不同版本不同
Config1 = "select * from config" '此变量为查询语句

cn.Open Conn1  '连接
rs.Open Config1, cn, 1, 1'查询

if rs.eof then
  '没查到记录
else
  for i=1 to rs.recordcount
  '具体操作
  next
endif

谢谢！我试一下再告诉您。

您好！
    还是不行。出现下列错误：

System.Runtime.“FROM 子句语法错误。”

求高手赐教！
   
    在VB中调用access数据库时出现错误。我用的是Visual Studio 2017
数据库是Access 2003

        Dim Conn As New ADODB.Connection
        Dim Rs As New ADODB.Recordset
        Conn.ConnectionString= "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\备件管理系统\equipmentDB.mdb;Persist Security Info=False"
        Conn.Open()
        strACC = "select * from user where User='&UserName&'"
        Rs.Open(strACC, Conn, 1, 1)   '运行到此出错

      System.Runtime.“FROM 子句语法错误。”

Dim Conn As New ADODB.Connection
        Dim Rs As New ADODB.Recordset
        Conn.ConnectionString= "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\备件管理系统\equipmentDB.mdb;Persist Security Info=False"
        Conn.Open()
        strACC = "select * from user where User='"& UserName & "'"
        Rs.Open(strACC, Conn, 1, 1)

[此贴子已经被作者于2018-5-23 16:58编辑过]

'&UserName&'语法错误
应为'"& UserName &"'