>>877 >>880
そもそも、何がしたいかわからんけど。
これは、出来るんじゃない?
Dim s As String
Dim o As Object
s = "ADODB.Connection"
Set o = CreateObject(s)

FactoryMethodみたいなことをしたいなら、
Select Case s
Case "CON"
　　Set o = New ADODB.Connection
Case "RS"
　　Set o = New ADODB.Recordset
End Select
とかかな。