Robson,
Você deve criar uma conexão com seu banco de dado e executar um select.
Dim
Conexao As New SqlClient.SqlConnection(strConn)
Dim objComd As New SqlClient.SqlCommand("Select Login,Senha from Usuarios where Login='ROBSONND' and Senha='123'",Conexao)
Dim dtr As SqlClient.SqlDataReader
Conexao.Open()
Try
dtr = objComd.ExecuteReader(CommandBehavior.CloseConnection)
If dtr.HasRows Then
'Se for verdadeiro significa que existe usuario e senha
'Redirecina para pagina Principal
else
'Se for falso
'Mensagem de Erro
End If
dtr.Close()
Conexao.Dispose()
Conexao.Close()
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
Espero que Ajude!
Robson Souza