ya lo solucione paso el codigo por si alguien lo necesita
Cita: 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