Dim conn As New ADODB.Connection
Dim rst As New ADODB.Recordset

With conn
   .CursorLocation = adUseClient
   .Provider = "MSDAORA"
   .Properties("Data Source").Value = "xe"
   .Properties("User ID").Value = "test"
   .Properties("Password").Value = "test"
   .Open
End With

rst.Open "Select * From names", conn, adOpenDynamic, adLockOptimistic
Debug.Print rst.RecordCount '(возращает ноль)
Set Form1.DataGrid1.DataSource = recset '(Заполняет заголовки столбцов, но данные отсутствуют)