ADO og Excel

Her er mit problem:


Dim DBÅBENdata
Dim dbForbindelse
Set dbForbindelse = CreateObject("ADODB.Connection")

With dbForbindelse
    .Provider = "Microsoft.Jet.OLEDB.4.0"
    .ConnectionString = "Data Source=" & App.Path & "/1.xls" & _
                        ";Extended Properties=""Excel 8.0; HDR=No;"""
    .Open
End With

' & List1.List(List1.ListIndex)
' WHERE [0] = Adrian
Set DBÅBENdata = dbForbindelse.Execute("SELECT * FROM [Sheet1$] where [A$] = '" & List1.List(List.ListIndex) & "'")
If Not DBÅBENdata.EOF Then

Text1.Text = DBÅBENdata("1")
Text2.Text = DBÅBENdata("2")
Text3.Text = DBÅBENdata("3")

End If


Hvordan kan det her virke? Det jeg vil have scriptet til at gøre, er at hente forskellige felter på en bestemt linie. Men det der med WHERE virker ikke! Hvorfor ikke?
Og hvordan kan jeg få det til at virke?