Function Positionen_schreiben(ByVal pAngebot As Angebot, ByVal pPositionsliste _
  As List(Of Position)) As Integer
 
 
 
        Try
            Dim verbindung As New OleDbConnection
            verbindung.ConnectionString = "provider=Microsoft.ACE.OLEDB.12.0;" & _
              "data source = Firmenverwaltung.accdb"
 
 
 
 
            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
            para5.Value = pAngebot.Angebotsnummer
 
            verbindung.Open()
            For Each el In pPositionsliste
 
                Dim befehl As New OleDbCommand
                befehl.Connection = verbindung
                befehl.CommandType = System.Data.CommandType.Text
 
                befehl.CommandText = "insert into [Position] values (?,?,?,?,?)"
 
                para1.Value = el.PositionsID
                para2.Value = el.Bezeichnung
                para3.Value = el.Menge
                para4.Value = el.Einzelpreis
 
 
                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()
 
 
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try