Vbnet & Db2 9.7

Realizar conexion a base de datos DB2 (v9.2)  En VBnet2008 Express (para 64 bits) y
(Se cuenta con cliente sólo para 32 bits ,no se cuenta con cliente para 64)

realizar una conexion Como por ejemplo:

Imports IBM.Data.DB2

private sub prueba()
  Dim dr As DB2DataReader, sql As String
        Dim cn As New DB2Connection("Server=" & IP_REMOTA.Text & ":50000;Database=" & Me.INSTANCIA_REMOTA.Text & ";UID=" & USUARIO_REMOTO.Text & ";PWD=" & CLAVE_REMOTA.Text)

        sql = " Select "
        sql = sql & "  tbsp_name tablespace, "
        sql = sql & " (tbsp_total_size_kb/1024) MB_Allocated,"
        sql = sql & " (tbsp_free_size_kb) MB_free,"
        sql = sql & " (tbsp_utilization_percent) Porc_used,"
        sql = sql & " (tbsp_used_size_kb/1024) mb_used"
        sql = sql & " from sysibmadm.tbsp_utilization"

        Dim cmd As New DB2Command(sql, cn)
     
                Using cn
                    cn.Open()
                    dr = cmd.ExecuteReader
                    'Dim adp As New DB2DataAdapter(cmd)
                    'Dim dt As New DataTable
                    Do While dr.Read


                    Loop
                    cn.Close()
                    cn.Dispose()
                End Using
            End If
        Catch
            Exit Sub
        End Try

    End Sub

Se dispone de maquina para realizar el  trabajo y la base DB2 a la que conectarse