Error แบบนี้แก้ยังไงอ่ะค่ะ รบกวนด้วยน่ะค่ะ Microsoft VBScript runtime error '800a0009'

Set Conn3 = Server.CreateObject("ADODB.Connection")
	Conn3.Open MM_Plastic_DB_STRING
	Set rs3 = Server.CreateObject ("ADODB.Recordset")
	SQL3 ="SELECT * FROM  "&Table1&" "
	response.Write(SQL3)
	rs3.Open SQL3,Conn3,1,3
	While Not rs3.eof 
		Print_No=rs3("Alert")
		Sale_Over_Credit=rs3("Users")
		Contact_ID=rs3("Customer_ID")
		'if isnull(Print_No) or Print_No="" then Print_No=0
		rs3("Alert")=Print_No+1
		Bill_Amount=rs3("Bill_Amount")
		T1=RS3("T1")
		if T1="" or isnull(T1) then T1=";;;;;;;"
		chk=split(T1,";")
		chk_no=ubound(chk)
		for I=0 to 6
			if I=0 then chk1=chk(0)
			if I=1 then chk2=chk(1)
			if I=2 then chk3=chk(2)
			if I=3 then chk4=chk(3) ' expire_date
			if I=4 then chk5=chk(4) ' gen_name
			if I=5 then chk6=chk(5) ' GMP
			if I=6 then chk7=chk(6) ' mfg_date 
			if I=7 then chk8=chk(7)
		Next

		T2=RS3("T2")
		if T2="" or isnull(T2) then T2=";;;;;"
		X1=split(T2,";")
		X1_no=ubound(X1)
		for I=0 to X1_no-1
			if I=0 then X11=X1(0) 'TDate
			if I=1 then X12=X1(1)
			if I=2 then X13=X1(2)
		Next
rs3.close