Da premettere che la Function CheckCredentials deve andare nella Private Sub Login_Click(...)End Sub

Invece la Sub CheckCredentials_Click mi entra sempre in "Errore!"

Questo a me serve per testare le credenziali di accesso per gli utenti. Se avete esempi di Log-In postateli oppure un Link da dove prendere esempi ed impararli. Grazie in anticipo a tutti :-)

<script runat="server">
Private Sub Login_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Login.Click

End Sub
Function CheckCredentials(ByVal User As String, ByVal Pass As String) As Boolean
Dim ConnectionString As New OleDb.OleDbConnection("Provider=System.Data.SqlCli ent;Data Source=xx.xxx.xxx.xx;Network Library=;database=MSSqlxxxxx;Connection Timeout=0;Packet Size=4096;Integrated Security=no;User ID=MSSqlxxxxx;Encrypt=no;pwd=xxxxxxxx;")
Dim Query As String
Query = "SELECT NOME_UTENTE, PASSWORD WHERE NOME_UTENTE='" & MYNOME.Text & "' AND PASSWORD='" & MYPASSWORD.Text & "'"


Dim objCmd As OleDb.OleDbCommand
Dim Reader As OleDb.OleDbDataReader

Try
ConnectionString.Open()
objCmd = New OleDb.OleDbCommand("SELECT NOME_UTENTE, PASSWORD FROM PROFILO WHERE NOME_UTENTE='" & MYNOME.Text & "' AND PASSWORD='" & MYPASSWORD.Text & "'", ConnectionString)
objCmd.Parameters.Add(User).ToString()

Reader = objCmd.ExecuteReader()
If Not Reader.Read() Then
Return False
Else
Dim strSalt As String = Reader("NOME_UTENTE").ToString
Dim strStoredPassword As String = Reader("PASSWORD").ToString
End If
Catch ex As Exception
' Errore
Finally
' Chiudo la connessione se è rimasta aperta
If Not ConnectionString Is Nothing Then
ConnectionString.Close()
End If
End Try
End Function

Sub CheckCredentials_Click(ByVal s As Object, ByVal e As EventArgs)
If (CheckCredentials(MYNOME.Text, MYPASSWORD.Text) = True) Then
MYNOME.Text = "Esatto!"
Else
MYNOME.Text = "Errore!"
End If
End Sub
</script>