Visual Basic - error en VB

Declaro x ej.

Private Function Ejecutar(ByVal orden As String, Optional ByVal tipo As _
IDatos.TiposDeSentencias = 4&, Optional Argumentos As Variant) As Long
Dim ocm As ADODB.Command
'al instanciarlo después de escribir set com = new ADODB. no me
'la lista'propiedades, metodos....
'esto me empezó a pasar a partir de un error que se produjo mientras tenía bierto
'el msdn y sql server, desinstale y volví a instalar el VB y sigue
Set ocm = New ADODB.Command
ocm.
........
end function

Cómo puedo solucionarlo??
Gracias

Hola, intenta reinstalar el Microsoft ActiveX Data Componets o MDAC_TYPE.exe que lo puedes bajar de internet de la pagina web de microsoft.

Saludos