表达式中‘loadSin’函数未定义，我定义了 Dim loadSin(1 To 6) As Single ，不知道问题出在哪里？

loadStr(1) = "insert into carQuary(CarNum,StartTime,EndTime,sinSumLiquid,SumLiquid,ExecyteNum,sinLiquid,loadSum) values(1000,StartTime,StopTime,loadSin(1),loadSum,CountNum,loadSinLiquid(1),loadSumSin)"
Set rs3 = conndb(loadStr(1))

<form name="form1" method="post" action="database3.asp">
xm <input type="text" name="xm"><br>
tel <input type="text" name="tel"><br>
message <input type="text" name="message" value=""><br>
<input type="submit" name="Submit" value="提交">
<input type="reset" name="Submit2" value="重置">
</form>
<%
set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("db1.mdb")
xm=request.form("xm")
tel=request.form("tel")
message=request.form("message")
exec="insert into guestbook(xm,tel,message)values ('"&xm&"',"&tel&",'"&message&"')"