Forbindelse til en ODBC datakilde

Hvordan opretter man, fra et makroprogram, en database forbindelse til en ODBC datakilde

Jeg har prøvet med:

Dim Database as Object
Dim DataSource as Object

Database = CreateUnoService("con.sun.star.sdb.DatabaseContext")
DataSource = Database.getByName("Drift")

På maskinen findes en datakilde med navnet “Drift”
Jeg får fejlen “Objectvariablen er ikke initialiseret”
Hvad gør jeg galt?

Mvh
HHT

Databasen skal først registreres i OOo. Det er beskrevet hvordan i http://www.abj.dk/OOo/ooomysql.pdf. Der ligger ligeledes flere manualer på http://www.abj.dk/OOo/ hvor der beskrives mere detaljeret om databasetilgang.