Dim Cn As New OleDbConnection()
        Cn.ConnectionString = PostfachConnectionString
 
        Dim cnd As New OleDbCommand("SELECT COUNT(*) FROM Adressenliste WHERE" & _
          "Mandanten_ID=4 ORDER BY Matchcode", Cn)
        Cn.Open()
        Dim anzahl As Integer = cnd.ExecuteScalar
        ToolStripStatusLabel1.Text = "Anzahl der Datensätze: " & anzahl
        Dim cnd1 As New OleDbCommand("SELECT * FROM Adressenliste WHERE" & _
          "Mandanten_ID=4 ORDER BY Matchcode, Cn)
 
        Dim cndr1 As OleDbDataReader = cnd1.ExecuteReader()
 
        While cndr1.Read
            Dim dr As New DataGridViewRow()
            dr.Cells.Add(New DataGridViewTextBoxCell)
            dr.Cells.Add(New DataGridViewTextBoxCell)
            dr.Cells.Add(New DataGridViewTextBoxCell)
            dr.Cells.Add(New DataGridViewTextBoxCell)
            dr.Cells.Add(New DataGridViewTextBoxCell)
            dr.Cells.Add(New DataGridViewTextBoxCell)
 
 
            dr.Cells(0).Value = cndr1("AdressenID").ToString
            dr.Cells(1).Value = cndr1("Matchcode").ToString
            If IsDBNull(cndr1("Adr1_Strasse").ToString) And IsDBNull(cndr1( _
              "Adr1_PLZ").ToString) Then
                dr.Cells(2).Value = ""
            Else
                dr.Cells(2).Value = cndr1("Adr1_Strasse") & " " & cndr1( _
                  "Adr1_Hsnr") & ", " & cndr1("Adr1_PLZ") & " " & cndr1( _
                  "Adr1_Ort")
            End If
 
            If IsDBNull(cndr1("Adr1_Strasse").ToString) And Not IsDBNull(cndr1( _
              "Adr1_PLZ").ToString) Then
                dr.Cells(2).Value = cndr1("Adr1_PLZ") & " " & cndr1("Adr1_Ort")
            End If
 
            If Not IsDBNull(cndr1("Adr1_Strasse").ToString) And IsDBNull(cndr1( _
              "Adr1_PLZ").ToString) Then
                dr.Cells(2).Value = cndr1("Adr1_Strasse")
 
            End If
 
            If Not IsDBNull(cndr1("Adr1_Telefon").ToString) Then
                dr.Cells(3).Value = cndr1("Adr1_Telefon")
            Else
                dr.Cells(3).Value = ""
            End If
            If Not IsDBNull(cndr1("Adr1_Fax").ToString) Then
                dr.Cells(4).Value = cndr1("Adr1_Fax")
            Else
                dr.Cells(4).Value = ""
            End If
            If Not IsDBNull(cndr1("Adr1_Email").ToString) Then
                dr.Cells(5).Value = cndr1("Adr1_Email")
            Else
                dr.Cells(5).Value = ""
 
            End If
            DataGridView1.Rows.Add(dr)
 
        End While
        cndr1.Close()
        Cn.Close()