Dataset

[Sete18]

Tengo este codigo, segun yo deberia estar ok (soy newbye) me tira error en el Adapter1.fill(dsUsuario1, "usuario") 'usuario es la tabla de conde saco los datos, el error dice excepcion no controlada del tipo "System.data.oledb.oledbexcepcion" en system.data .dll

Imports System.Data
Imports System.Data.OleDb

Private Sub btnAceptar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAceptar.Click
Dim coneccion As OleDbConnection
Dim Adapter1 As OleDbDataAdapter
Dim dsUsuario1 As DataSet

coneccion = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=D:\pruebasdeVB.NET\-==Ultimo==-\WindowsApplication5\NADA.mdb")

Adapter1 = New OleDbDataAdapter("SELECT Login, Pass FROM Usuario WHERE (Login=@paramLogin) And (Pass=@paramPass)", coneccion)

dsUsuario1 = New DataSet()

dsUsuario1.Clear()
Adapter1.Fill(dsUsuario1, "usuario")

Adapter1.SelectCommand.Parameters("@paramLogin").V alue = txtLogin.Text
Adapter1.SelectCommand.Parameters("@paramPass").Va lue = txtPass.Text

If (Me.BindingContext(dsUsuario1, "Usuario").Count And Me.BindingContext(dsUsuario1, "Usuario").Count) = 0 Then
MessageBox.Show("No usuario")
txtLogin.Text = ""
txtPass.Text = ""
txtLogin.Focus()
Else
MessageBox.Show("Abrir Aplicación")
txtLogin.Text = ""
txtPass.Text = ""
txtLogin.Focus()
End If
End Sub
End Class