consultar parametros en ACCESS en visual basic para login

[chris225]

buenas tengo un programa en visual basic que me permite acceder informacion a una base de datos en access y necesito que cuando me inicie el programa el programa me consulte usuario y contraseña de la base de datos de access

trate con un datatable y no me ha funcionado trabajo visual basic 2010 y access 2010

este es el codigo de lo que llevo

Dim usuario, contraseña As String

usuario = txtusuario.Text
contraseña = txtcontraseña.Text

If validar_usuario(usuario, contraseña) = True Then
MsgBox("usuario valido, Bienvenido")
Me.Hide()
Else
MsgBox("usuario y contraseña incorrectos intente de nuevo")
End If


End Sub

Public Function validar_usuario(ByVal usuario As String, ByVal contraseña As String) As Boolean

Using ofd As New OpenFileDialog()

ofd.Filter = "Archivos de Access 2007 - 2010|*.accdb|Todos los archivos|*.*"

Dim dr As DialogResult = ofd.ShowDialog(Me)

Dim cnn As String = String.Format("Provider=Microsoft.ACE.OLEDB.12.0;" & "Data Source={0}", ofd.FileName)
Dim cn As String = String.Format("Select * from Empleados where usuario='{0}' and contraseña='{1}'", usuario, contraseña)
Dim da As New OleDbDataAdapter(cn, cnn)
Dim ds As New DataSet
Dim cont As Integer
cont = Convert.ToInt32(ds.Tables(0).Rows.Count)
If cont > 0 Then
Return True
Else
Return False
End If
End Using



End Function

[chris225]

ya lo solucione paso el codigo por si alguien lo necesita

Using ofd As New OpenFileDialog()

ofd.Filter = "Archivos de Access 2007 - 2010|*.accdb|Todos los archivos|*.*"

Dim dr As DialogResult = ofd.ShowDialog(Me)
Dim cnn As String = String.Format("Provider=Microsoft.ACE.OLEDB.12.0;" & "Data Source={0}", ofd.FileName)
Dim dv As New DataView
Dim dv1 As New DataView
Dim da As New OleDbDataAdapter("SELECT * FROM Empleados", cnn)
Dim ds As New DataSet
da.Fill(ds)
dv = New DataView(ds.Tables(0))
dv1 = New DataView(ds.Tables(0))
dv.Sort = "Nombre"
dv1.Sort = "Contraseña"
Dim index As Integer = dv.Find(txtusuario.Text)
Dim index1 As Integer = dv1.Find(txtcontraseña.Text)

Dim num As Integer
num = -1
If index = num Or index1 = num Then
MsgBox("usuario incorrecto intente de nuevo")
Else
MsgBox("usuario valido, Bienvenido")
Me.Hide()
Alumnos.Show()
End If

End Using