Buenos dias amigos.

[OSC99]

Hola amigo para realizar la operacion que deseas hay muchisimas formas tanta como programadores aun asi te expongo una sencillita segun mi paracer

'en el boton aceptar
Private Sub btnaceptar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnaceptar.Click

Dim nombre As String

Try

Dim dr As OleDb.OleDbDataReader
Me.cnxBD.Open() 'el nombre de tu string de conexion
dr = Me.CmdSelect.ExecuteReader

NUEVO = True 'donde nuevo es un modulo

While dr.Read
If dr.Item("Usuario") = Me.txtusuario.Text And dr.Item("Contrasena") = Me.txtcontrasena.Text Then 'donde usuario y contrasena son los campos en tu bd como se llamen'
ID = dr.Item("ID")' donde id es otro modulo
NUEVO = False
nombre = dr.Item("Nombre")


Exit While
End If
End While
Me.cnxBD.Close()
Catch excepcion As OleDb.OleDbException
MessageBox.Show("Error:Base de datos no encontrada", "Atencion", MessageBoxButtons.OK, MessageBoxIcon.Error) 'control de errores
Me.cnxBD.Close()
Catch excepcion As Exception
MessageBox.Show("Error: " & excepcion.ToString, "Atencion", MessageBoxButtons.OK, MessageBoxIcon.Error)
Me.cnxBD.Close()
Finally
Me.txtusuario.Text = String.Empty
Me.txtcontrasena.Text = String.Empty
Me.txtusuario.Focus()
End Try

If NUEVO = False Then
MessageBox.Show("Bienvenido/a " & nombre, "Bienvenid@", MessageBoxButtons.OK, MessageBoxIcon.Asterisk)

Else
If contador > 1 Then
contador = contador - 1
MessageBox.Show("Ha introducido mal el usuario o contraseña vuelva a intentarlo, le quedan de intentos:" & contador, "Error", MessageBoxButtons.OK, MessageBoxIcon.Information) 'con un contador controlamos que si a la tercera no introduce bien se cierre la aplicacion'
Me.txtusuario.Focus()
Else
MessageBox.Show("Ha excedido el número de intentos, la aplicación se cerrará", "Atencion", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
Me.Close()

End If
End If


End Sub