Private Sub daten_aendern()
        con.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;" & "Data" & _
          "Source=.\MPSOPETT_PC_Daten.accdb"
        cmd.Connection = con
        cmd.CommandText = "UPDATE tbl_pcinfo set SAPAnlagenNr = """ & _
          SAPAnlagenNR_Box_aendern.Text & """ ServiceTag = """ & _
          ServiceTag_Box_aendern.Text & """ HDD = """ & _
          Festplatte_Box_aendern.Text & """ RAM = """ & Ram_Box_aendern.Text & _
          """ geaendertAm = """ & Date.Today & """ Gebaeude = """ & _
          Gebaeude_Box_aendern.Text & """ Saeule = """ & _
          Saeule_Box_aendern.Text & """ CPUBezeichnung = """ & _
          CPUBez_Box_aendern.Text & """ CPUTakt = """ & _
          CPUTakt_Box_aendern.Text & """ CPUKern = """ & _
          CPUKern_Box_aendern.Text & """ Bemerkungen = """ & _
          Bemerkung_Box_aendern.Text & """ where PCName = """ & _
          PCName_Box_aendern.Text & """"
MessageBox.Show(cmd.CommandText)
        Try
            con.Open()
            cmd.ExecuteNonQuery()
            con.Close()
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
    End Sub

Lebe lange und in Frieden