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

求高手赐教！

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

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

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 子句语法错误。”

是的，我输入错了。还是不行！

求高手赐教！
   
    在VB中调用access数据库时出现错误。我用的是Visual Studio 2017,数据库是Access 2003,数据库名为：equipmentDB.mdb，其中一张表名：user,表中只有二个字段：loginName和password。我做了一个登录窗口，有两个文本框：TextBox1和TextBox2，分别输入：admin和123456，与库中的用户名和密码比对，然后登录。
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim rsStr As String
        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 loginName='"&TextBox1.text&"'"
        Rs.Open(strACC, Conn, 1, 1)   '运行到此出错

        下面是一些比对语句，略。。。。

End Sub

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

不好意思。这是我的全部代码，但还是出错！！
在VB中调用access数据库时出现错误。我用的是Visual Studio 2017中的VB，数据库是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 loginName='" & TextBox1.Text & "'" '此变量为查询语句        Rs.Open(strACC, Conn, 1, 1)   '运行到此出错

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

求高手赐教！！！
   
    在VB中调用access数据库时出现错误。我用的是Visual Studio 2017中的VB，数据库是Access 2003。数据库名为：equipmentDB.mdb，其中的表名为：user，有两个字段：loginName和passwowd。目的是：用户登录时比对用户名和密码。在窗体中创建了一个登录对话框，有二个文本框TextBox1和TextBox2，还有二个按钮。部分代码如下：

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        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 loginName='"TextBox1.text"'"
        Rs.Open(strACC, Conn, 1, 1)   '运行到此出错
        ........

End Sub
      出错信息：
      System.Runtime.“FROM 子句语法错误。”