怎么初始化这个数据库

admin

试试这个(其它表你自己加)
Dim strSQL As String
    Dim conn As ADODB.Connection
    Set conn = CurrentProject.Connection
    strSQL = "delete * from 操作日志 "
    conn.Execute (strSQL)         '删除表的所有记录
msgbox "1111111"