Hi I am trying to use Apollo OLEDB from Vista Software and am struggling to understand how to create connections.

I was using 3 seperate connection strings to connect to 3 dbf files with foxpro indexes and then using sql commands to extract the data, I then had three datagrids for which I set the datasource to each of the three recordsets but for some reason each grid only shows the data from the first recordset. Below is a sample of the code I hope someone can help as its driving me crazy.

btw I am a newbie and using vb6

Dim dbconnaparamr As Connection
Dim dbconnaparamrstr As String
Dim dbconnasupplr As Connection
Dim dbconnasupplrstr As String
Dim dbconnanlacct As Connection
Dim dbconnanlacctstr As String

Private Sub Form_Load()

Set dbconnaparamr = New Connection
Set dbconnasupplr = New Connection
Set dbconnanlacct = New Connection

'db.CursorLocation = adUseClient

'***********************************
' Define connection Strings


dbconnaparamrstr = "Provider=ApolloOLEDB61.ApolloOLEDB61;" & _
"Data Source = c:\vbfiles\tester2005\Data\; " & _
"ConnectionUser=SYSDBA; " & _
"ConnectionPassword=masterkey; " & _
"ConnectionHost=127.0.0.1;" & _
"ConnectionPort=8121;" & _
"FetchCount=50;" & _
"AccessMethod=amLocal;SetTables=APARAMR.dbf, APARAMR, ttSXFOX, '', FALSE,''"

dbconnasupplrstr = "Provider=ApolloOLEDB61.ApolloOLEDB61;" & _
"Data Source = c:\vbfiles\tester2005\Data\; " & _
"ConnectionUser=SYSDBA; " & _
"ConnectionPassword=masterkey; " & _
"ConnectionHost=127.0.0.1;" & _
"ConnectionPort=8121;" & _
"FetchCount=50;" & _
"AccessMethod=amLocal;SetTables=ASUPPLR.dbf, ASUPPLR, ttSXFOX, '', FALSE,''"

dbconnanlacctstr = "Provider=ApolloOLEDB61.ApolloOLEDB61;" & _
"Data Source = c:\vbfiles\tester2005\Data; " & _
"ConnectionUser=SYSDBA; " & _
"ConnectionPassword=masterkey; " & _
"ConnectionHost=127.0.0.1;" & _
"ConnectionPort=8121;" & _
"FetchCount=50;" & _
"AccessMethod=amLocal;SetTables=ANLACCT.dbf, ANLACCT, ttSXFOX, '', FALSE,''"



dbconnaparamr.Open dbconnaparamrstr
dbconnasupplr.Open dbconnasupplrstr
dbconnanlacct.Open dbconnanlacctstr

Set db1 = New Recordset
db1.Open "SELECT APARAMR.* FROM APARAMR", dbconnaparamr, adOpenStatic, adLockOptimistic, adCmdText
Set DataGrid1.DataSource = db1
Set db2 = New Recordset
db2.Open "SELECT ASUPPLR.* FROM ASUPPLR", dbconnasupplr, adOpenStatic, adLockOptimistic, adCmdText
Set DataGrid2.DataSource = db2
Set db3 = New Recordset
db3.Open "SELECT * FROM ANLACCT", dbconnanlacct, adOpenStatic, adLockOptimistic, adCmdText
Set DataGrid3.DataSource = db3
End Sub