Public Sub btn_xml_load_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles btn_xml_load.Click
 
        Dim openFile As New System.Windows.Forms.OpenFileDialog()
        openFile.DefaultExt = "xml"
        openFile.Filter = "XML File (*.xml)|*.xml|Alle Dateien (*.*)|*.*"
        openFile.ShowDialog()
        If openFile.FileNames.Length > 0 Then
            Dim filename As String
            For Each filename In openFile.FileNames
                Dim dsPubs As New DataSet()
 
                grd_string.ClearSelection()
                ' grd_string = DATAGRIDVIEW
                dsPubs.ReadXml(openFile.OpenFile)
 
                grd_string.DataMember = "ConnectionString"
                grd_string.DataSource = dsPubs
 
            Next
 
        End If
    End Sub

Private Sub grd_string_CellDoubleClick(ByVal sender As System.Object, ByVal e _
  As System.Windows.Forms.DataGridViewCellEventArgs) Handles _
  grd_string.CellDoubleClick
 
        Dim auslesen As String
 
        auslesen = grd_string.CurrentCell.FormattedValue
 
        Dim objSQLConnection As New SqlClient.SqlConnectionStringBuilder( _
          auslesen)
 
        Dim obj_SqlConnection As New SqlClient.SqlConnection( _
          objSQLConnection.ConnectionString)
        Dim dtb_DBNames As New DataTable()
 
        auslesen = grd_string.CurrentCell.FormattedValue
 
        cbo_name_server.Text = ""
        cbo_name_server.Items.Clear()
        cbo_name_server.Items.Add(objSQLConnection.DataSource)
 
 
 
        If objSQLConnection.PersistSecurityInfo = Nothing Then
 
            opt_benutz_sicher.Checked = True
            txt_benutz_name.Text = objSQLConnection.UserID
            txt_benutz_pass.Text = objSQLConnection.Password
 
        Else
 
            opt_int_sicher.Checked = True
 
        End If
        cbo_database.Items.Clear()
        cbo_database.Items.Add(objSQLConnection.InitialCatalog)
 
        If (cbo_name_server.Items.Item(0)) = "(local)" Then
            opt_int_sicher.Checked = True
            opt_benutz_sicher.Checked = False
        Else
            opt_int_sicher.Checked = False
            opt_benutz_sicher.Checked = True
        End If
 
    End Sub

Private Sub btn_aender_save_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles btn_aender_save.Click
    '?????????????????????????????????????????????????????
    End Sub