Option Explicit
 
Public dbFilename As String
Public db As Database
Public Table As TableDef
Public myField As Field
 
Public Sub OpenDatabase()
Dim Name As String
Dim i, j As Integer
 
    dbFilename = App.Path + "\mdb\" + "keywords.mdb"
    'Set DB = Workspaces(0).CreateDatabase(dbFilename, dbLangGeneral, dbEncrypt 
    ' + dbVersion30)
    Set db = Workspaces(0).OpenDatabase(dbFilename, False, False)
 
    j = 2
    For i = 0 To db.TableDefs(j).Fields.Count - 1
        Name = db.TableDefs(j).Fields(i).Name
        Form1.RichTextBox1.Text = RichTextBox1.Text + Name + Chr(13) + Chr(10)
    Next i
    db.Close
End Sub
 
Private Sub Form_Load()
    OpenDatabase
    'End
End Sub