I can't bound a recordset to my FlexGrid

When a ADODB Recordset is established and I try to bound its information to a FlexGrid, nothing happens. When I execute the code line by line and I reach the line that says "Set vsGrid.DataSource = recSet" and press F8 the debugger goes to the next line and the data does not show in the grid, and If a point the sentence "vsGrid.DataSource" the ControlTipText says "Nothing". I think I might've set wrong the Recordset. Here is the code:
'''''''''''''''''''''''''''''''''''''''''''''
Dim datConnection As ADODB.Connection
Dim recSet As ADODB.Recordset
Dim strDB, strSQL As String

strDB = "C:\Report.XLS"

Set datConnection = New ADODB.Connection
Set recSet = New ADODB.Recordset
datConnection.Open "DRIVER=Microsoft Excel Driver (*.xls);" & "DBQ=" & strDB

strSQL = "SELECT * FROM [Sheet1$A1:10]"

recSet.Open strSQL, datConnection, adOpenStatic

Set vsGrid.DataSource = recSet
'Here is the problem, data is 'not shown on Grid

Please somebody help me, because this code works for a Excel Sheets.

[QUOTE=lujus1]When a ADODB Recordset is established and I try to bound its information to a FlexGrid, nothing happens. When I execute the code line by line and I reach the line that says "Set vsGrid.DataSource = recSet" and press F8 the debugger goes to the next line and the data does not show in the grid, and If a point the sentence "vsGrid.DataSource" the ControlTipText says "Nothing". I think I might've set wrong the Recordset. Here is the code:
'''''''''''''''''''''''''''''''''''''''''''''
Dim datConnection As ADODB.Connection
Dim recSet As ADODB.Recordset
Dim strDB, strSQL As String

strDB = "C:\Report.XLS"

Set datConnection = New ADODB.Connection
Set recSet = New ADODB.Recordset
datConnection.Open "DRIVER=Microsoft Excel Driver (*.xls);" & "DBQ=" & strDB

strSQL = "SELECT * FROM [Sheet1$A1:10]"

'//recSet.Open strSQL, datConnection, adOpenStatic
'// try this isted of that
recSet.Open strSQL, datConnection, adopenkeyset