Dim cmdInsert As New OleDb.OleDbCommand("INSERT INTO News(NewsID," & _
          "Beschreibung) VALUES(1, meine Nachricht)", objVerbindung)
        Dim cmdUpdate As New OleDb.OleDbCommand("UPDATE News SET Beschreibung =" & _
        "'" & MeineBeschreibung & "' WHERE NewsID=" & MyNewsID, objVerbindung)
 
        Try
            cmdInsert.ExecuteNonQuery()
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
 
        Try
            cmdUpdate.ExecuteNonQuery()
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try

MfG
Huppi

######################################################
# Dank Computer wissen wir viel genauer, was wir nicht wissen... #
######################################################