Como conectarse desde vb a un AS400 ?

tliscano
14 de Abril del 2005
Hola:
Hice un DSN de usuario llamado SPI para conectarme a un servidor AS400, luego en una aplicación VB coloqué lo siguiente:
Dim adoConnectNomina As New ADODB.Connection
doConnectNomina.CursorLocation = adUseServer
adoConnectNomina.ConnectionString = "D" & "S" & "N" & "=" & "S" & "P" & "I"
adoConnectNomina.CommandTimeout = 9120
adoConnectNomina.Open
pero da un error "Data source name not found an no default driver specified" al llegar a esta última instrucción.
Alguien tiene alguna idea de como solventar el error ?
Gracias de antemano por la ayuda.