objConn2.Open()
strsql = ("select [userpersonale],data from elencouser where userpersonale='" & usern.Text & "' and passworduser= '" & password.Text & "' ")
Dim objCommand As New OleDbCommand(strsql, objConn2)
areader = objCommand.ExecuteReader()

While (areader.Read())
utenteL.Text = (areader.GetString(0))
data = (areader.GetDateTime(1))

End While

objConn2.Close()


If utenteL.Text = "" Then
erroreuser()
Else
noerroreuser()
End If