用以下代码，我能把EXCEL的列加入到SQL表中，但我只能读出一行记录，如何做个循环读出excel所有行的记录？
file1 = "e:\test\test.xls"
Set Conn_xls = Server.CreateObject("ADODB.Connection"
Driver = "Driver={Microsoft Excel Driver (*.xls)};"
DBPath = "DBQ=" & file1
Conn_xls.Open Driver & DBPath
Sql_f1 = "select * from [sheet1$]"
Set Rs1 = Conn_xls.Execute(Sql_f1)

Sqlex = "Insert Into MaterielBOMread(MaterielCode,MaterielDosage,MaterielNumber)values ('"&(Rs1(0))&"','"&Trim(Rs1(3))&"','"&Trim(Rs1(5))&"')"
Conn.Execute(Sqlex)
Conn_xls.Close
Set Conn_xls = Nothing