DB2 UDB에도 OLE DB PROVIDER가 있습니다.

이름은 IBM OLE DB Provider ( IBMDADB2 ) 입니다.

설치요건은 Microsoft Data Access Components(MDAC) 버전 2.7 이상 및 DB2 UDB V8 client ( run time client or higher)가 설치 되어 있어야 합니다.

Visual Basic sample 코드를 참고하십시요

Dim cmd As ADODB.Command
Dim con As ADODB.Connection
Dim rst As ADODB.Recordset

Set con = New ADODB.Connection
con.ConnectionString = "DSN=SAMPLE;UID=db2admin;PWD=mypsw;"
con.Provider = "IBMDADB2"
con.CursorLocation = adUseClient
con.Open

Set cmd = New ADODB.Command
Set cmd.ActiveConnection = con
cmd.CommandText = "SELECT * FROM SYSIBM.SYSDUMMY1"
Set rst = cmd.Execute()
MsgBox "Successful retrieval of record. Column" + _
           " 'IBMREQD' has a value of '" + _
           rst.Fields.Item("IBMREQD").Value + "'" + vbCrLf

rst.Close
con.Close