Primero, a esta altura debo suponer que agregaste en las referencias al Microsoft ActiveX Data Objects 2.x Library
Segundo la sentencia debería ser como sigue:
Código:
.
.
.
Dim basedatos As Connection
.
.
.
Set basedatos = New ADODB.Connection
.
.
.
Saludos.