Visual Basic - AYUDA CON ADO

Buenas
¿Me podriais ayudar con este código?

Dim mydlg As New MSDASC.DataLinks
Dim ADOcon As New ADODB.Connection

ADOcon = mydlg.PromptNew
ADOcon.Open()

If ADOcon.State = 1 Then
MsgBox("Conexión abierta")
Else
MsgBox("Conexión errónea")
End If

¿Que código tengo que poner para que esto funcione?
Me sale este error al poner el código

Projects\WindowsApplication1\Form1.vb(126): El tipo 'ADODB.Connection' no está definido.
Projects\WindowsApplication1\Form1.vb(125): El tipo 'MSDASC.DataLinks' no está definido.

Un saludo y gracias.

para el error de ADO, debes ir a proyecto/referencias y tildar la referencia a "Microsoft ActiveX DataObject 2.x" (donde la x puede ser cualquier numero del 3 al 8)

el del MSDASC no sé exactamente cual podria ser tienes que buscarlo.

Saludos!