Public Function dbopen()
cmd_save.Enabled = False
cmd_new_esc.Enabled = False
 
Dim dbFile As String
 
dbFile = App.Path + "\bhdb.mdb"
Set db = Workspaces(0).OpenDatabase(dbFile, False, False)
 
Dim SQL As String
'Dim rs As Recordset
 
SQL = "SELECT * FROM txtstone"
Set rs = db.OpenRecordset(SQL)
 
If rs.RecordCount > 0 Then
  While Not rs.EOF
    List1.AddItem rs("text").
    rs.MoveNext
  Wend
End If
End Function