sub destroyAll()
	On ERROR RESUME NEXT
	
	If IsObject(my_Conn) then
		my_Conn.close
		Set my_Conn = nothing
	End if
	
	If IsObject(objConnBoard) then
		objConnBoard.close
		Set objConnBoard = nothing
	End if
	
	If IsObject(rsConfig) then
		rsConfig.close
		Set rsConfig = nothing
	End if
	
	If IsObject(rsInfo) then
		rsInfo.close
		Set rsInfo = nothing
	End if
	
	If IsObject(rsMod) then
		rsMod.close
		Set rsMod = nothing
	End if
	
	If IsObject(rs) then
		rs.close
		Set rs = nothing
	End if
	
	If IsObject(drs) then
		drs.close
		Set drs = nothing
	End if
	
	If IsObject(delrep) then
		delrep.close
		Set delrep = nothing
	End if
	
	If IsObject(rs1) then
		rs1.close
		Set rs1 = nothing
	End if
	
	If IsObject(rsForum) then
		rsForum.close
		Set rsForum = nothing
	End if
	
	If IsObject(rsArchive) then
		rsArchive.close
		Set rsArchive = nothing
	End if
	
	If IsObject(rs_date) then
		rs_date.close
		Set rs_date = nothing
	End if
	
	If IsObject(rsGetMemberID) then
		rsGetMemberID.close
		Set rsGetMemberID = nothing
	End if
	
	If IsObject(rsdrop) then
		rsdrop.close
		Set rsdrop = nothing
	End if
	
	If IsObject(rsChk) then
		rsChk.close
		Set rsChk = nothing
	End if
	
	If IsObject(rsGetMemberName) then
		rsGetMemberName.close
		Set rsGetMemberName = nothing
	End if
	
	If IsObject(rsAccess) then
		rsAccess.close
		Set rsAccess = nothing
	End if
	
	If IsObject(rsStatus) then
		rsStatus.close
		Set rsStatus = nothing
	End if
	
	If IsObject(rsAllowedMember) then
		rsAllowedMember.close
		Set rsAllowedMember = nothing
	End if
	
	If IsObject(rsGetMemberNumber) then
		rsGetMemberNumber.close
		Set rsGetMemberNumber = nothing
	End if
	
	If IsObject(rsCount) then
		rsCount.close
		Set rsCount = nothing
	End if
	
	If IsObject(rsWatch) then
		rsWatch.close
		Set rsWatch = nothing
	End if
	
	If IsObject(rsSub) then
		rsSub.close
		Set rsSub = nothing
	End if
	
	If IsObject(rsLoop) then
		rsLoop.close
		Set rsLoop = nothing
	End if
	
	If IsObject(rs3) then
		rs3.close
		Set rs3 = nothing
	End if
	
	If IsObject(rsCatLoop) then
		rsCatLoop.close
		Set rsCatLoop = nothing
	End if
	
	If IsObject(rsForumLoop) then
		rsForumLoop.close
		Set rsForumLoop = nothing
	End if
	
	If IsObject(rsTopicLoop) then
		rsTopicLoop.close
		Set rsTopicLoop = nothing
	End if
	
	If IsObject(rsReplies) then
		rsReplies.close
		Set rsReplies = nothing
	End if
end sub

destroyAll()

quote:

---

i forgot...

the board runs smoth now.
the site is http://www.photocase.de

thanks for that fine piece of work (the board ;)

---