Dim Tablo As New TableDef
Set dosya = CreateDatabase("c:\deneme.mdb", dbLangTurkish)

With Tablo
.Name = "Adresler"
.Fields.Append .CreateField("ADI", dbText, 20)
.Fields.Append .CreateField("SOYADI", dbText, 20)
.Fields.Append .CreateField("ADRES", dbText, 50)
.Fields.Append .CreateField("TEL", dbText, 20)
End With
dosya.TableDefs.Append Tablo

Set dosya = Nothing
Set Tablo = Nothing