Public Sub GetLanDBInfo()
        Dim sConnString As String = "user id=" + sLogonUser + ";" + _
                                    "data source=" + StringOracle.SourceOracle _
                                    + ";" + _
                                    "password=" + sLogonPassword
 
        Dim sortColumn As DataGridViewColumn = _
          frmMain.MyMainForm.dgvLANUSER.Columns(5) 'Sortieren nach Kostenstelle
        '--- Datensätze laden ---
        Try
            frmMain.MyMainForm.dgvLANUSER.DataSource = _
              frmMain.MyMainForm.bsLanDB
            frmMain.MyMainForm.LAN_USERTableAdapter1.Connection.ConnectionStrin_
            g = sConnString
 
            frmMain.MyMainForm.LAN_USERTableAdapter1.ClearBeforeFill = True
            frmMain.MyMainForm.LAN_USERTableAdapter1.Fill( _
              frmMain.MyMainForm.DsLanUser.LAN_USER)
            frmMain.MyMainForm.dgvLANUSER.Sort(sortColumn, _
            System.ComponentModel.ListSortDirection.Ascending)
        Catch ex As Exception
            MessageBox.Show(ex.Message.ToString)
        End Try
    End Sub