validar contraseña en vb 2005

[Peluza_string]

Dim da As OleDbDataAdapter
Dim dt As DataTable
Dim n As Integer
Dim sel, sCnn As String
sel = "SELECT * FROM Usuario where usuario='" & variable_usuario & "'"
sCnn = MiConeccionSQL
da = New OleDbDataAdapter(sel, sCnn)
dt = New DataTable
da.Fill(dt)
n = dt.Rows.Count

If n = 0 Then
' aqui colocas un insert into para agregar el usuario que no existe rescatando los datos de los textbox
End If

Saludos =)