Anything wrong with the codes?

[MikeTurner]

Hi,

I'm trying to read a sas dataset using vba. Below is my codes. But it seems something wrong with my codes or some problems with my seeting.   "Error 424" always pops up. Anyone could help me out?

Thanks in advance.

Public Sub GetData()

Dim obConnection As Object

Dim obRecordset As Object

Dim i As Integer

Set obConnection = CreateObject("Adodb.Connection")

Set obRecordset = CreateObject("ADODB.Recordset")

obConnection.Provider = "sas.LocalProvider.1"

obConnection.Properties("Data Source") = "D:\Project\"

obConnection.Open

obRecordset.Open "raw", obConnection, adOpenStatic, adLockReadOnly, ADODB.adCmdTableDirect

'obRecordset.Open "select * from raw", obConnection, adOpenStatic, adLockReadOnly, ADODB.adCmdTableDirect

Range(Cells(1, 1), Cells(obRecordset.RecordCount + 1, obRecordset.Fields.Count)).NumberFormat = "@"

Cells(1, 1).Select

For i = 0 To obRecordset.Fields.Count - 1

       ActiveCell.Offset(0, i).Value = obRecordset.Fields(i).Name

  Next i

Set obConnection = Nothing

Set obRecordset = Nothing

End Sub