verbindung.Open()
            For Each el In pPositionsliste
 
                Dim para1 As New OleDbParameter
                para1.ParameterName = "@PositionsID"
                para1.OleDbType = OleDbType.Integer
 
 
                Dim para2 As New OleDbParameter
                para2.ParameterName = "@Bezeichnung"
                para2.OleDbType = OleDbType.VarChar
 
 
                Dim para3 As New OleDbParameter
                para3.ParameterName = "@Menge"
                para3.OleDbType = OleDbType.VarChar
 
 
                Dim para4 As New OleDbParameter
                para4.ParameterName = "@Einzelpreis"
                para4.OleDbType = OleDbType.Decimal
 
                Dim para5 As New OleDbParameter
                para5.ParameterName = "@Angebotsnummer"
                para5.OleDbType = OleDbType.Integer
 
                para1.Value = el.PositionsID
                para2.Value = el.Bezeichnung
                para3.Value = el.Menge
                para4.Value = el.Einzelpreis
                para5.Value = pAngebot.Angebotsnummer
 
                befehl.Parameters.Add(para1)
                befehl.Parameters.Add(para2)
                befehl.Parameters.Add(para3)
                befehl.Parameters.Add(para4)
                befehl.Parameters.Add(para5)
 
                befehl.ExecuteNonQuery()
            Next
            verbindung.Close()