With CONNECT
            .Provider = "Microsoft.Jet.OLEDB.4.0"
            .Properties("Data Source").Value = _
              My.Application.Info.DirectoryPath & "\db1.mdb"
            .Open()
        End With
 
        rst = New ADODB.Recordset
        rst.CursorType = ADODB.CursorTypeEnum.adOpenKeyset
        rst.LockType = ADODB.LockTypeEnum.adLockOptimistic
        rst.let_Source("SELECT * FROM Firmen")
        rst.Open(, CONNECT)
 
        If rst.RecordCount = 0 Then
            Me.LadenLaden.Enabled = False
        End If
 
        ListView1.Items.Clear()
 
        Do While Not rst.EOF
            itmX = ListView1.Items.Add(rst.Fields("AGID").Value, 0)
            If itmX.SubItems.Count > 1 Then
                itmX.SubItems(1).Text = rst.Fields("Arbeitgeber1").Value & " " _
                  & rst.Fields("Firmierung").Value
            Else
                itmX.SubItems.Insert(1, New _
                  System.Windows.Forms.ListViewItem.ListViewSubItem(Nothing, _
                  rst.Fields("Arbeitgeber1").Value & " " & rst.Fields( _
                  "Firmierung").Value))
            End If
            rst.MoveNext()
        Loop