Database Visual basic数据库问题

我有一个数据库access 2010与我的visual basic项目链接。我正在做一个登录表单，我得到了代码，但我得到了错误

代码如下：

Public Class start

Dim loginerror As String

Public Function login()

    Dim DBconn As New ADODB.Connection
    Dim user As New ADODB.Recordset
    Dim username As String
    Dim userDB As String
    Dim passDB As String
    Dim UserFound As Boolean

    DBconn.Open("Prodider = Microsoft.ace.OLEDB.12.0;" & _
                 "data source = '" & Application.StartupPath & "\sellgames.accdb'")

    user.Open("usertable", DBconn, ADODB.CursorTypeEnum.adOpenStatic, ADODB.LockTypeEnum.adLockOptimistic)

    UserFound = False
    login = False
    username = "Username = '" & txtbxuser.Text & "'"

    Do
        user.Find(username)
        If user.BOF = False And user.EOF = False Then
            userDB = user.Fields("username").Value.ToString

            passDB = user.Fields("Password").Value.ToString

            If userDB <> txtbxuser.Text Then
                user.MoveNext()

            Else
                UserFound = True
                If passDB = txtbxpass.Text Then
                    user.Close()
                    DBconn.Close()
                    Return True
                Else
                    loginerror = "Invalid Password"
                    user.Close()
                    DBconn.Close()
                    Return False

                End If
            End If
        Else
            loginerror = "Invalid username"
            user.Close()
            DBconn.Close()
            Return False

        End If
    Loop Until UserFound = True

    'http://www.youtube.com/watch?v=sDdTOyIy_dU

End Function

Private Sub btnexit_Click(sender As System.Object, e As System.EventArgs) Handles btnexit.Click
    Me.Close()

End Sub

Private Sub btnregister_Click(sender As System.Object, e As System.EventArgs) Handles btnregister.Click
    register.ShowDialog()

End Sub

Private Sub btnlogin_Click(sender As System.Object, e As System.EventArgs) Handles btnlogin.Click
    If login() = True Then
        MessageBox.Show("logged in!", "login message")
    Else
        MessageBox.Show(loginerror, "login message")
    End If
End Sub

末级

下面是错误：

sellgames.exe中首次出现类型为“System.Runtime.InteropServices.COMException”的异常

错误在第14行和第15行

我已经添加了microsoft active x data objects 2.5库

---

任何帮助都会很棒。

DBconn.Openprovider而不是prodider。请检查您的拼写，哪一行引发异常？是否有关于异常的更多信息，例如内部异常的消息或堆栈跟踪？是否用谷歌搜索错误？这是一个具有变通方法的文档。你试过这项工作了吗？可能也想看看你的。这是请拼的，不是请拼的。