Private SQLString As String
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Try
            SQLString = "Integrated Security=True; MultipleActiveResultSets=true; Initial Catalog=GGGestPub; Data Source=192.168.1.3,1433;User ID=GuidoGilli;Password=Guido2012;"
            Dim SqlConnection = New SqlClient.SqlConnection(SQLString)
            SQLConnection.Open()
            MsgBox("SQLCLient via IP CONNESSO" & vbCrLf & SQLString)

        Catch ex As Exception
            MsgBox("SQLCLient via IP" & vbCrLf & Err.Description & vbCrLf & SQLString)
        End Try
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Try
            SQLString = "Provider=SQLOLEDB;  MultipleActiveResultSets=true;Data Source=192.168.1.3,1433;Server=GUIDO-SERVER.MSSQLSERVER;Network Library=DBMSSOCN;Initial Catalog=GGGestPub;User ID=GuidoGilli;Password=Guido2012;"
            Dim OleConnection = New OleDb.OleDbConnection(SQLString)
            OleConnection.Open()
            MsgBox("OLEDB CONNESSO" & vbCrLf & SQLString)
        Catch ex As Exception
            MsgBox("OLEDB" & vbCrLf & Err.Description & vbCrLf & SQLString)
        End Try
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Try
            SQLString = "Integrated Security=True; MultipleActiveResultSets=true; Initial Catalog=GGGestPub; Data Source=GUIDO-SERVER;User ID=GuidoGilli;Password=Guido2012;"
            Dim SqlConnection = New SqlClient.SqlConnection(SQLString)
            SqlConnection.Open()
            MsgBox("SQLCLient CONNESSO" & vbCrLf & SQLString)

        Catch ex As Exception
            MsgBox("SQLCLient" & vbCrLf & Err.Description & vbCrLf & SQLString)
        End Try