users = Me.Text1.Text
Password = Me.Text2.Text
schema = Environ("NOME_SID")
    'apro la connessione al database
    Dim oradb As String = "Data Source=" & schema & ";User Id=" & users & ";Password=" & Password & ";"
    Dim conn As New OracleConnection(oradb)
    conn.Open()
    Dim cmd As New OracleCommand
    If conn.State = ConnectionState.Open Then
        Me.Hide()
        Errore.Show()
    Else
        MsgBox("Connessione non riuscita ")
    End If