Neue Datenbank per VBA erstellen

Sub Firebird_Datenbank_Einlesen()
Dim cn As Object, rs As Object
Dim varDB() As Variant
Set cn = CreateObject("ADODB.Connection")
cn.Open "Driver={Firebird/InterBase(r) driver};" & _
"Dbname=localhost:C:\Verzeichnis\Dateiname.FDB; " & _
"User Id=SYSDBA;" & _
"password=masterkey;" & _
"ctype=win1251;" & _
"auto_commit=true"
Set rs = cn.Execute("SELECT * FROM TabellenName")
varDB = rs.GetRows
rs.Close
cn.Close
Set cn = Nothing
Set rs = Nothing
varDB = Transpose_Array(varDB)
Range("A1").Resize(UBound(varDB) + 1, UBound(varDB, 2) + 1) = varDB
End Sub