Visual Basic.NET - formulario login

Hola buenas tardes.
quería saber si alguien me puede ayudar:
Tengo una tabla en mi BD SQL 2000 en donde están los campos usuario y contraseña
quiero crear un Formulario de login que me permita ingresar usuario y contraseña, y de ser correctos que me deje ingresar al sistema.

espero se apiaden de mi
Saludos

Cristian

Espero te sirva

Public cmdadministrador As New SqlClient.SqlCommand
Public adapadministrador As New SqlClient.SqlDataAdapter
Public dadministrador As New DataSet
Dim contador, comparador As Integer

adapadministrador.AcceptChangesDuringFill = True
cmdadministrador.CommandText = "select * from ADMINISTRADOR"
cmdadministrador.Connection = conexion
adapadministrador.SelectCommand = cmdadministrador
dadministrador.Clear()

adapadministrador.Fill(dadministrador, "tadministrador")
contador = dadministrador.Tables("tadministrador").Rows.Count
comparador = 0
encontrado = "no"
Do While (comparador < contador)
If tusuario.Text = dadministrador.Tables("tadministrador").Rows(comparador).Item("usuario") Then
If tcontraseña1.Text = dadministrador.Tables("tadministrador").Rows(comparador).Item("clave") Then
ventana_principal.Show()
tcontraseña1.Text = ""
Me.Hide()
comparador = contador
encontrado = "si"
End If
End If
comparador = comparador + 1
Loop

Suerte