Dim sqlString As String
        sqlString = "select 用户名,密码 from user where 用户名=' " & TextBox1.Text & " '"
        Dim objectdsDataSet As New DataSet
        Dim oleconn As New OleDb.OleDbConnection(conn)
        Dim adapter As New OleDb.OleDbDataAdapter
        adapter.TableMappings.Add("table", "user")
        Dim cmd As OleDb.OleDbCommand = New OleDb.OleDbCommand(sqlString, oleconn)
        cmd.CommandType = CommandType.Text
        adapter.SelectCommand = cmd
        If oleconn.State <> ConnectionState.Open Then
            oleconn.Open()
        End If
        cmd.ExecuteNonQuery()
        If oleconn.State <> ConnectionState.Closed Then
            oleconn.Close()
        End If
        adapter.Fill(objectdsDataSet)
        If objectdsDataSet.Tables("user").Rows.Count = 0 Then
            MsgBox("您输入的用户名或密码有误，请重新输入！", MsgBoxStyle.Exclamation, Me.Text)
            Exit Sub
        End If
        If objectdsDataSet.Tables("user").Rows(0)("密码").ToString = TextBox2.Text Then
            userName = Trim(TextBox1.Text)
            userPwd = Trim(TextBox2.Text)
            Dim f1 As New Form1
            f1.Show()
            Me.Finalize()
        Else
            MsgBox("请输入的用户名或密码有误，请重新输入！", MsgBoxStyle.Critical, Me.Text)
            Exit Sub
        End If
出错了：
[color=000080]未处理的“System.Data.OleDb.OleDbException”类型的异常出现在 system.windows.forms.dll 中。[/color]

望高手指教啊！