Tienes dos maneras de hacerlo. Una es usando lo que se llama un "DSN-Less", es decir, no usando un DSN y la otra, por supuesto, es usar un DSN.
Sin usar DSN seria algo como :
Dim cn as OdbcConnection
cn = New OdbcConnection ("Driver={Microsoft Access Driver (*.mdb)};" & _
"DBQ=D:\Archivos de programa\Microsoft Office\Office10\Samples\Northwind.mdb;UID=;PWD=")
Usando un DSN seria :
Dim cn as OdbcConnection
cn = New OdbcConnection ("dsn=MyDSN;uid=sa;pwd=myPassword;")