Hello,For x = 0 To Ubound(arr_datum, 2) Step 1mySQL = "INSERT INTO tbl_beschikbaarheid(id_huis,jaar,week, status, active) VALUES ("& id_huizen &", "& arr_datum(0,x) &", "& arr_datum(1,x) &", 'aanvraag', 1)"conn.Execute(mySQL)mySQL = "SELECT @@IDENTITY FROM tbl_beschikbaarheid"Set myRecSet = conn.Execute(mySQL)mySQL = "INSERT INTO tbl_datum(id_boeking, id_beschikbaarheid) VALUES("& id_boeking &", "& myRecSet(0) &")"conn.Execute(mySQL)NextCan this peace of code writen bether/faster?ThanxxBjorn 