Tilfoej data til database og derefter laeste det

Hej

Jeg har tilfoejet noget til min db og derefter koere jeg en select, men min select henter ikke den ny opdatering.

Hvordan kan det vaere og kan jeg goere noget for at loese det ?


Kode :

Dim arrAssProj
vartest  = 0
arrAssProj = Split(varchkProjectAdd, ",")

if len(varchkProjectAdd) > 0 then

for i = 0 to ubound(arrAssProj)
SQLAssProj = "INSERT INTO tblTaskToolProRght (ProjectID, UserID) "
SQLAssProj = SQLAssProj & " VALUES ('" & arrAssProj(i)  & "','" & varUserName & "')"
conn.execute(SQLAssProj)
vartest = vartest + 1

next

end if


' Creating new Array to contain current list of projects in the tblTaskToolProRght

SQLNewUsersProject = "SELECT * FROM tblTaskToolProRght WHERE UserID = '" & RsAllUsers("UserName") & "'"
RsNewUsersProject.Open SQLNewUsersProject, DSNTA, 2