Public Con As New SqlConnection
Con.ConnectionString = "Integrated Security=SQLNCLI; Server=.\SQLExpress;AttachDbFilename=C:\Program Files\Microsoft SQL Server\MSSQL10.SQLEXPRESS\MSSQL\DATA\umg_data.mdf;Database=umg_data;Trusted_Connection=Yes; "
 Try
      Con.Open()
      If Con.State = ConnectionState.Open Then
        Return True
      End If
    Catch ex As Exception
      If Con.State <> ConnectionState.Open Then
        MsgBox(ex.Message, MsgBoxStyle.Critical)
        Return False
      End If
    End Try

 Con.ConnectionString = "Integrated Security=SQLNCLI; Server=.\SQLExpress;AttachDbFilename=C:\Program Files\Microsoft SQL Server\MSSQL10.SQLEXPRESS\MSSQL\DATA\data.mdf;Database=data;Trusted_Connection=Yes; "

 Con.ConnectionString = "Provider=SQLNCLI;Server=.\SQLExpress;AttachDbFilename=C:\Program Files\Microsoft SQL Server\MSSQL10.SQLEXPRESS\MSSQL\DATA\data.mdf;Database=data;Trusted_Connection=Yes; "

Public Con As New SqlConnection
...
 Try
...
    End Try

  Public Sub SaveSettings()
    Dim i, j As Integer
    Dim Sect, sKey As String