Visual Basic - Ayuda con conección

Quiero conectarme a una bases sqlserver mediante un nombre Dsn y etiquetas obdc, tengo las siguientes lineas

Dim Bd1 As ADODB.Connection
Set Bd1 = New ADODB.Connection

Al ejecutar me envia un error de ejecución "no se ha definido el tipo definido por el usuario"
Alguien sabe porque sucede o que me falta hacer ???

Puede que te falte referenciar ADO
En el menu Proyecto -->Referencias te mostrara la pantalla para referenciar Microsoft Activex Data Objects 2.x

Si has cambiado la aplicacion de PC es posible que tengas distintas versiones de ADO, caso contrario habra que ver mas