Formulario Login

Espero te sirva este código

'Conectando a la base de datos
Dim conBase As New OleDb.OleDbConnection
("Provider=Microsoft.jet.oledb.4.0;Data Source=d:ombre
de la BD.mdb")
conBase.Close()
Dim strSQL As String
strSQL = "Select * from cuentas where usuario = '"
& txtusuario.Text & "' and contrasena = '" &
txtcontrasena.Text & "'"
Dim daEmp As New OleDb.OleDbDataAdapter(strSQL,
conBase)
Dim dsEmp As New DataSet
daEmp.Fill(dsEmp, "Log")
'Si el dataset obtuvo un registro es que si es
valido el Usuario y la clave
If dsEmp.Tables("Log").Rows.Count = 1 Then
Me.Close()
Dim a As New frmprincipal
a.Show()
Else
MessageBox.Show("Usuario o contraseña No
Valida")
txtusuario.Text = ""
txtcontrasena.Text = ""
Me.txtusuario.Focus()
End If

Saludos compañeros, estoy aprendiendo a programar con
visual basic .net y quisieran que me ayudaran con lo
siguiente:

Estoy diseñando una aplicación de base de datos, la cual
la base de datos esta hecha en access 2003. En la base
dedatos he creado una tabla llamada usuarios donde tengo
el nick y el password del usuario.

Mi pregunta es como puedo hacer un formulario de ingresar
usuario, donde me valide el nick y el password del
usuario que esten registrados en la tabla de la base de
datos.


Saludos y gracias.


.