excel.application?

Hej!
jeg har noget kode der fejler med denne her sætning:

***************************************
xl.Sheets(CInt(Text2.Text)).Select \'Skal være tallet CStr(Text2.Text)
***************************************
mangler der en set xl = noget eller hvad ?

Koden kommer her:

Public db As rdoConnection
Public rs As rdoResultset
\'Public Xl As Object
Public xl As Excel.Application
Public sSql As String
Public en As rdoEnvironment

Private Sub Command1_Click()

\'Dim xlchart As Object
Dim xl As Excel.Application

Dim tal(500) As String
Dim dat(500) As String
Dim tal1, dat1 As String

Set en = rdoEnvironments(0)
Set db = en.OpenConnection(dsName:=\"\", Prompt:=rdDriverNoPrompt, ReadOnly:=False, Connect:=\"uid=;=plack;driver={SQL Server};\" & \"server=;database=;\")

sSql = \"SELECT instrumentid, dato_ult_md, kurs_indexeret FROM mdl_indexeret_data\"
Set rs = db.OpenResultset(sSql, rdOpenDynamic, rdConcurValues)
rs.MoveFirst


Dim tallet As Integer

xl.Sheets(CInt(Text2.Text)).Select \'Skal være tallet CStr(Text2.Text)
For i = Text4.Text To Text5.Text
tal1 = Text8.Text & i
dat1 = Text7.Text & i
tal(i) = xl.Range(tal1)
dat(i) = xl.Range(dat1)

List1.AddItem Format(tal(i), \"###0.00\")

List1.AddItem Format(dat(i), \"dd-mm-yy\")
\'rs.MoveNext
rs.AddNew
rs!instrumentid = Text3.Text
tal2 = Format(tal(i), \"###0.00\")
start = InStr(1, tal2, \",\")
Mid(tal2, start, 1) = \".\"
dat2 = Format(dat(i), \"dd-mm-yy\")
rs!kurs_indexeret = tal2
rs!dato_ult_md = dat2

List2.AddItem rs!instrumentid \'hj
List2.AddItem rs!kurs_indexeret \'hj
List2.AddItem rs!dato_ult_md \'hj

rs.Update

Next i

rs.Close
db.Close

End Sub