Using RDS To Query a Remote Access DB

<i><b>Originally posted by : RHarper (magi68@excite.com)</b></i><br />I have been looking at the RDS and experimenting with it in VB 6.0 to access an Access DB on IIS 4.0 remotely through VB 6.0.<br /><br />I keep getting an error 800A20FF Internet Server Error when I try to create a recordset. Below is the VB Code that I am using to access the site. Once there it fails at the "Set RS = df.Query(StrCon, sSql)" To retrieve a recordset.<br /><br />Public Function Retrieve_Info()<br />Dim Rs As ADODB.Recordset, ds As Object, df As Object<br />Dim sSQL As Variant, StrCon As Variant<br /><br /><br />Set ds = CreateObject("RDS.DataSpace")<br />Set df = ds.CreateObject("RDSServer.DataFactory", _<br />"http://myserver/")<br /><br />'Set Connection String<br /><br />StrCon = "dsn=myDsn"<br /><br />'Set SQL Query<br />sSQL = "SELECT Items.Title, Items.Epg FROM Items ORDER BY Items.Epg"<br /><br />'Get Recordset<br />**** It Fails Here ******<br />Set Rs = df.Query(sSQL, StrCon)<br /><br />Do Until Rs.EOF<br /> Picture1.Print Rs!epg & vbTab & Rs!Title & vbCrLf<br /> Rs.MoveNext<br />Loop<br /><br />'Clean Up<br />Rs.Close<br />Set ds = Nothing<br />Set df = Nothing<br />Set Rs = Nothing<br />End Function<br /><br /><br />I realize this is an ASP Bulletin Board but I thought someone might have tried this and succeeded. I am trying to update two databases at the same time. I have a backup of the DB on my site kept locally and would like to update both at the same time.<br /><br />I appreciate any help I can get.<br /><br />Any help <br />