Connecting to A/S 400 with ADO 1

[rss01]

I am trying to connect from Access to an A/S 400 database and would prefer not to use ODBC. Does anyone know ADO code to establish a connection to query A/S 400 tables/views?

Thanks

 

[Gravins]

Here you go. Here is the way I use it in my code:
Dim cnn As ADODB.Connection
Dim rst As ADODB.Recordset
Dim cmd As ADODB.Command
Dim cnndb As ADODB.Connection
Dim rstdb As ADODB.Recordset
Dim var As Variant
Dim i As Long

'Get Plants
Set cnn = New ADODB.Connection
cnn.Open "Provider=IBMDA400;Password=;User ID=;Data Source="Your AS400";Transport Product=Client Access;SSL=DEFAULT"

Set rst = New ADODB.Recordset
rst.ActiveConnection = cnn
rst.Open "Select YOURLIB.YOURFILE.* from YOURLIB.YOURFILE"

Additional info can be found at:

http://publib-b.boulder.ibm.com/Red...fcbf61b349b0f44a85256650006728a0?OpenDocument

 

[rss01]

Thanks, I'm working on it now.

 

[TheRealDeal]

How do I get it to work with Access97? My system does not recognize the ADO* verbage.