Dim strSQL As String   
 Dim dbConnection As New SqlCeConnection(My.Settings.EventsDBConnectionString & _
   Passwort
 Dim myAdapter As New SqlCeDataAdapter
        Dim cmd As New SqlCeCommand(strSQL, dbConnection)
        myAdapter.SelectCommand = cmd
        Dim commandbuilder As New SqlCeCommandBuilder(myAdapter)
 
 
 
        strSQL = "UPDATE  Kosten.* WHERE EventsID='" & AktivesEvent & "'"
        cmd.CommandText = strSQL
        myAdapter.SelectCommand = cmd
        myAdapter.UpdateCommand = commandbuilder.GetUpdateCommand
        myAdapter.Update(EventsDB, "Kosten")

LG,
Andi