Visual Basic.NET - Curiosidad, Quien se ha conectado a DB2 ( AS400 )?

Alguien me pregunto esto...

Quien ha logrado una coneccion en .NET a una base de datos DB2 de un AS400. Que no sea por ODBC ya que es muy lento.

Saludos

Pon esto en en Módulo, ademas funciona como cualquier Recordset.

Public CnBase As ADODB.Connection
Public conAS400 As New ADODB.Connection
Public FormP As New Form1
Public strCon As String
Public Rs As ADODB.Recordset

Public Sub Main()
Rs = New ADODB.Recordset
strCon = "Provider=IBMDA400;Password='AKI_TU_PASS';User ID=AKI_TU_USUARIO;" & _
"Data Source=AKI_LA_IP;Transport Product=Client Access;SSL=DEFAULT"
conAS400.ConnectionString = strCon
conAS400.Open()
If conAS400.State = 1 Then
Rs.ActiveConnection = conAS400
Rs.LockType = ADODB.LockTypeEnum.adLockOptimistic
Application.Run(FormP)
Else
MsgBox("Imposible Conectar", MsgBoxStyle.Critical, "Error")
End If
End Sub