Thanks for the replies so far. Tom, I saw your post linking to ADO.
And this seems much more familiar to me(as i could use sql). One
problem I am encountering so far. I can not return a recordset
containing mulitple records?? here is my code so far

Private Sub getData(sourceFile As String, SourceRange As String,
TargetRange As Range, IncludeFieldNames As Boolean, TypeofClass As
String)




Dim TargetCell As Range
Dim i As Integer

dbConnectionString = "DRIVER={Microsoft Excel Driver (*.xls)};" &
"ReadOnly=1;DBQ=" & sourceFile
Set dbConnection = New ADODB.Connection

On Error GoTo InvalidConnection
dbConnection.Open dbConnectionString 'open the database
'Set rs = dbConnection.Execute("[" & SourceRange & "]")
Dim rstTables As ADODB.Recordset
Set rstTables = dbConnection.OpenSchema(adSchemaTables)
Set rs = New ADODB.Recordset
SQL = "Select * FROM " & SourceRange

rs.Open SQL, dbConnection

Set TargetCell = TargetRange.Cells(1, 1)

If IncludeFieldNames Then
For i = 0 To rs.Fields.Count - 1
TargetCell.Offset(0, i).Formula = rs.Fields(i).Name
Next i
Set TargetCell = TargetCell.Offset(1, 0)
End If
If TypeofClass = "Prosight" Then
While Not rs.EOF
TargetCell.Offset(0, 0).Formula = rs.Fields(1).Value
TargetCell.Offset(0, 1).Formula = rs.Fields(10).Value
TargetCell.Offset(0, 2).Formula = rs.Fields(0).Value
TargetCell.Offset(0, 3).Formula = rs.Fields(31).Value

rs.NextRecordset
Wend
End If

'TargetCell.CopyFromRecordset rs

Exit Sub

InvalidConnection:
MsgBox Err.Description, vbExclamation, "Incorrect Data"
End Sub

The Err.Description = "Current Provider does not support returning
mulitple recordsets from a single execution"