conn.Open()
 
            Dim sql As String = "UPDATE personendetails SET umzuggeplant =" & _
              "@umzuggeplant AND weitereadressen = @weitereadressen " _
            & "AND konaktpersonen = @konaktpersonen AND vorabwesenheit =" & _
            "@vorabwesenheit AND hausarzt = @hausarzt " _
            & "AND internist = @internist AND kardiologe = @kardiologe AND" & _
            "weiterebehandler = @weiterebehandler WHERE pid = @pid"
            Dim cmd As New OleDb.OleDbCommand(sql, conn)
            cmd.Parameters.Add("@umzuggeplant", OleDbType.Char, 50, _
              "umzuggeplant").Value = umzuggepl
            cmd.Parameters.Add("@weitereadressen", OleDbType.Char, 50, _
            "weitereadressen").Value = weitereadressen
            cmd.Parameters.Add("@konaktpersonen", OleDbType.Char, 50, _
            "konaktpersonen").Value = Kontaktpersonen
            cmd.Parameters.Add("@vorabwesenheit", OleDbType.Char, 50, _
            "vorabwesenheit").Value = vorabwehsenheit
            cmd.Parameters.Add("@hausarzt", OleDbType.Char, 50, _
            "hausarzt").Value = Hausarzt
            cmd.Parameters.Add("@internist", OleDbType.Char, 50, _
            "internist").Value = internist
            cmd.Parameters.Add("@kardiologe", OleDbType.Char, 50, _
            "kardiologe").Value = kardiologe
            cmd.Parameters.Add("@weiterebehandler", OleDbType.Char, 50, _
            "weiterebehandler").Value = weiterebehandler
            cmd.Parameters.Add("@pid", OleDbType.Integer, 20, "pid").Value = id
            cmd.CommandType = CommandType.Text
            cmd.ExecuteNonQuery()
 
            conn.Close()