select * from excel

[Paradox]

Hi am trying to select contents of a column from an excel sheet but my query keeps returning a recordcount of -1.
how can i get round this?

Private Sub cmdbrowse_Click()
    frmODBCLogon.Show vbModal, frmmain
   
    Dim strQuery As ADODB.Recordset
    sADOConnect = "PROVIDER=MSDASQL;" & sDSN & sConnect
    sDAOConnect = "ODBC;" & sDSN & sConnect
    Set gConnection = New Connection
    gConnection.Open sADOConnect
    Set strQuery = New ADODB.Recordset
    strQuery.Open "SELECT * FROM [Sheet1$]", gConnection, adOpenDynamic, adLockOptimistic
    MsgBox strQuery.RecordCount