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 = "update Rechnung set Kundenname = ?, Kundenvorname" & _
          "= ?,Kunden_Kundennummer = ?, Status = ?, Typ = ?, Erfassungsdatum =" & _
          "?, Angebotsdatum = ?, Angebotsnummer = ?"
 
        Dim para1 As New OleDbParameter
        para1.ParameterName = "@Kundenname"
        para1.OleDbType = OleDbType.VarChar
        para1.Value = pRechnung.Kunde.Name
 
        Dim para2 As New OleDbParameter
        para2.ParameterName = "@Kundenvorname"
        para2.OleDbType = OleDbType.VarChar
        para2.Value = pRechnung.Kunde.Vorname
 
        Dim para3 As New OleDbParameter
        para3.ParameterName = "@Kundennummer"
        para3.OleDbType = OleDbType.Integer
        para3.Value = pRechnung.Kunde.Kundennummer
 
        Dim para4 As New OleDbParameter
        para4.ParameterName = "@Status"
        para4.OleDbType = OleDbType.VarChar
        para4.Value = pRechnung.Status
 
        Dim para5 As New OleDbParameter
        para5.ParameterName = "@Typ"
        para5.OleDbType = OleDbType.VarChar
        para5.Value = pRechnung.Typ
 
        Dim para6 As New OleDbParameter
        para6.ParameterName = "@Erfassungsdatum"
        para6.OleDbType = OleDbType.VarChar
        para6.Value = pRechnung.Erfassungsdatum
 
        Dim para7 As New OleDbParameter
        para7.ParameterName = "@Angebotsdatum"
        para7.OleDbType = OleDbType.VarChar
        If pRechnung.Angebotsdatum = "" Then
            para7.Value = DBNull.Value
        Else
            para7.Value = pRechnung.Angebotsdatum
        End If
 
        Dim para8 As New OleDbParameter
        para8.ParameterName = "@Angebotsnummer"
        para8.OleDbType = OleDbType.Integer
        If pRechnung.Angebotsnummer = 0 Then
            para8.Value = DBNull.Value
        Else
            para8.Value = pRechnung.Angebotsnummer
        End If
 
        befehl.Parameters.Add(para1)
        befehl.Parameters.Add(para2)
        befehl.Parameters.Add(para3)
        befehl.Parameters.Add(para4)
        befehl.Parameters.Add(para5)
        befehl.Parameters.Add(para6)
        befehl.Parameters.Add(para7)
        befehl.Parameters.Add(para8)
 
 
 
        Try
            verbindung.Open()
            befehl.ExecuteNonQuery()
            verbindung.Close()
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try