Public Sub SBsAnzeigen(ByVal _container As Integer)
        strSQL = "SELECT ID, Nominalwert, Rang, Datum, Ersteinlieferung," & _
          "ProvisorischeAuslieferung, ProvisorischeEinlieferung," & _
          "DefinitiveAuslieferung FROM Schuldbriefe WHERE KUDA=" & _container
 
        Dim odbConn As New OleDbConnection(strConnection)
        Dim odbSelect As New OleDbCommand()
 
        odbSelect.CommandText = strSQL
        odbSelect.Connection = odbConn
 
        formMain.ltvSB.Items.Clear()
 
        Try
            odbConn.Open()
            Dim dr As OleDbDataReader = odbSelect.ExecuteReader()
            While dr.Read()
                formMain.ltvSB.Items.Add(dr("ID").ToString)
                Dim i As Integer = formMain.ltvSB.Items.Count - 1
                With formMain.ltvSB.Items(i).SubItems
                    .Add(dr("Nominalwert").ToString)
                    .Add(dr("Rang").ToString)
                    .Add(dr("Datum").ToString)
                    .Add(dr("Ersteinlieferung").ToString)
                    .Add(dr("ProvisorischeAuslieferung").ToString)
                    .Add(dr("ProvisorischeEinlieferung").ToString)
                    .Add(dr("DefinitiveAuslieferung").ToString)
                End With
            End While
            dr.Close()
        Catch ex As Exception
            MsgBox(ex.Message)
        Finally
            odbConn.Close()
        End Try
    End Sub

                    .Add(dr("Datum").ToString)
                    .Add(dr("Ersteinlieferung").ToString)
                    .Add(dr("ProvisorischeAuslieferung").ToString)
                    .Add(dr("ProvisorischeEinlieferung").ToString)
                    .Add(dr("DefinitiveAuslieferung").ToString)

                    .Add(dr("Datum").ToString("dd.MM.yyyy"))
                    .Add(dr("Ersteinlieferung").ToString("dd.MM.yyyy"))
                    .Add(dr("ProvisorischeAuslieferung").ToString("dd.MM.yyyy"))
                    .Add(dr("ProvisorischeEinlieferung").ToString("dd.MM.yyyy"))
                    .Add(dr("DefinitiveAuslieferung").ToString("dd.MM.yyyy"))