Vytvoření tabulky v MS Accessu pomocí SQL

[black999]

Chci vytvořit tabulku v MS Access pomocí SQL, napsal jsem následující příkazy, ale kompilátor mi hlási chybu. Nevím si rady, jak to opravit.

Option Compare Database
Option Explicit
Private Sub vytvoreni()
Dim Pokus As database
If Dir("C:\database.mdb") <> "" Then Kill "c:\database.mdb"
Set Pokus = CreateDatabase("C:\database.mdb", dbLangCzech)
Pokus.Close
End Sub
Private Sub aaa()
Dim dbs As database
Set dbs = OpenDatabase("C:\database.mdb")
dbs.Execute "CREATE TABLE tabulka(aaa TEXT(20),bbb MEMO);"
dbs.Execute "CREATE INDEX index1 ON zmija(aaa ASC) WITH PRIMARY;"
dbs.Close
End Sub

[Reklama]