Visual Basic.NET - VALIDAR USUARIO

Hola a tod@s

Como puedo validar el usuario y contraseña en un formulario y que una ves validado pueda pasar al formulario 2

Tengo usuarios dentro de mi base de datos quiero que al momento de haer click en el boton entrar me compare los valores si esta en la base de datos que me mande al formulario 2 y si no que me mande un mensaje de error

Les agradesco de antemano su ayuda
SALUDOS!!!!!!!!!!1

Create Un Procedimiento almacenado que haga esa evaluacion..un ejmplo seria asi

Create Procedure ValidarUsuario
@c_user_personal Varchar(50),
@c_psw_personal Varchar(50),
@Estado Bit OutPut
As
If (Select Count(*) From USUARIO Where c_user_personal = @c_user_personal And c_psw_personal = @c_psw_personal) = 1
Begin
Set @Estado = 1 ---Si Existe el usuario
End
Else
Begin
Set @Estado = 0 ---no Existe el usuario
End

Fijate yo le envio como parametros el User y Pasword del usuario y ocn esos parametros hago la evaluacion si la consulta me devuelve 1 entocnes el Usuario si existe y por lo tanto le asigno 1 al parametro de slaida.

y en vb.net evaluarias el parametro de salida

si te devuelve 1 pasas al form2 y si te devuelve 0 envias un mensaje de error.

hola de nuevo GRACIAS por la ayuda, pero tengo otra duda

Como es la instruccion para pasar al formulario 2???????????

TE AGRADESCO DE ANTEMANO TU ATENCION
SALUDOSS!!!!!!!

Hola seria algo tan sencillo como llamar al formulario 2, cn el evento show. y si quieres que el formulario 1 desaparezca usar la propiedad hide. El codigo estaria dentro del formulario 1 y seria:

Formulario2.Show()
Me.Hide() <- si quieres que desaparezca el formulario 1, sino aparecera atras.

Ok alli lo tienes.... si no te sale escribeme a mi correo trata de ser especifica por Favor Chao Cuidate!

'estoy usando la DB Northwind

Create proc VALIDARUSUARIO
@User Varchar(20),
@Pass Varchar(20),
@Retorno Int OutPut
as
If (
select Count(*) from customers
where customerId =@User and contactTitle =@Pass) = 1
begin
Set @Retorno = 1
End
Else
Begin
Set @Retorno = 0
End

--- Probar tu Store
---declare @tt int
---exec VALIDARUSUARIO 'anatr','Owner',@retorno =@tt OutPut
---select @tt

'Este es el Codigo para recuperar el valor en vb.Net 2005

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim ocn As New SqlConnection("user id=sa;database=northwind;server=Server2")
Try
Dim cmd As New SqlCommand("VALIDARUSUARIO", ocn)
cmd.CommandType = CommandType.StoredProcedure
ocn.Open()

cmd.Parameters.Add("@user", SqlDbType.VarChar, 20)
cmd.Parameters("@User").Value = "ANATR"
cmd.Parameters("@User").Direction = ParameterDirection.Input

cmd.Parameters.Add("@Pass", SqlDbType.VarChar, 20)
cmd.Parameters("@Pass").Value = "Owner"
cmd.Parameters("@Pass").Direction = ParameterDirection.Input

cmd.Parameters.Add("@Retorno", SqlDbType.Int)
'cmd.Parameters("@Retorno").Value = IsDBNull(0)
cmd.Parameters("@Retorno").Direction = ParameterDirection.Output

cmd.ExecuteNonQuery()
Me.TextBox1.Text = cmd.Parameters("@Retorno").Value
If Me.TextBox1.Text = 1 Then ' si existen Usuarios
Dim frm As New BCSW09_DetalleGuardias
frm.Show()
Else
MsgBox("Ingrese Nombre y Password Correcto", MsgBoxStyle.Information, "SISTEMA XXXXXXXXXXXX")
Exit Sub
End If
Catch ex As Exception
MsgBox(ex)
End Try

End Sub