Function Positionen_schreiben(ByVal pPositionsliste) As Integer
 
 
 
        Try
            For Each el In pPositionsliste
                Dim verbindung As New OleDbConnection
                verbindung.ConnectionString = _
                  "provider=Microsoft.ACE.OLEDB.12.0; data source =" & _
                  "Firmenverwaltung.accdb"
 
 
                Dim befehl As New OleDbCommand
                befehl.Connection = verbindung
                befehl.CommandType = System.Data.CommandType.Text
 
                befehl.CommandText = "Insert into Position (" & _
                  "PositionsID,Bezeichnung,Menge,Einzelpreis) values (" & _
                  "?,'?','?',?)"
 
                Dim para1 As New OleDbParameter
                para1.ParameterName = "@PositionsID"
                para1.OleDbType = OleDbType.Integer
                para1.Value = el.PositionsID
 
                Dim para2 As New OleDbParameter
                para2.ParameterName = "@Bezeichnung"
                para2.OleDbType = OleDbType.VarChar
                para2.Value = el.Bezeichnung
 
                Dim para3 As New OleDbParameter
                para3.ParameterName = "@Menge"
                para3.OleDbType = OleDbType.VarChar
                para3.Value = el.Menge
 
                Dim para4 As New OleDbParameter
                para4.ParameterName = "@Einzelpreis"
                para4.OleDbType = OleDbType.Decimal
                para4.Value = el.Einzelpreis
 
 
                befehl.Parameters.Add(para1)
                befehl.Parameters.Add(para2)
                befehl.Parameters.Add(para3)
                befehl.Parameters.Add(para4)
 
                Try
                    verbindung.Open()
                    befehl.ExecuteNonQuery()
                    verbindung.Close()
                Catch ex As Exception
                    MessageBox.Show(ex.Message)
                End Try
            Next
 
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
 
 
        Return 0
    End Function