Leggere dati nelle celle di Excel

[flash20]

Ciao a tutti ho una serie di variabili a cui ho bisogno di assegnare i valori delle celle di un foglio di excel, ho usato il seguente script:

<
colonne=7 

Dim DbConn, rs
strConn="DRIVER={Microsoft Excel Driver (*.xls)};  DBQ=" & Server.MapPath ("dati.xls")
set DbConn=server.CreateObject("adodb.connection")
sqlString="SELECT * FROM [Foglio1$]"
set rs=server.createobject("adodb.recordset")

rs.activeconnection=strConn
rs.open sqlString

while not rs.EOF

campo1=rs
campo2=rs
campo3=rs

  rs.MoveNext
wend
rs.close

Ovviamente così le variabili campo1,campo2,campo3 non danno il risultato che voglio, come devo fare per attribuire a campo1 i valori della prima colonna, a campo2 quelli della seconda e a campo3 quelli della terza???

Grazie