使用以下代码在当前数据库中新建一个表，但是新建完成看不到表，请问各位大神怎么回事

Private Sub COM新建_Click()
'将文本框的值赋给变量
    strName = Me.txt表名
    On Error GoTo 新建表_Err
    Dim db As Database  '声明数据库变量
    Dim tb As New TableDef '声明新表变量
    Dim fldName As New Field '声明新字段（姓名）变量
    Dim fldSex As New Field   '声明新字段（性别）变量
    '制定数据库变量为当前数据库变量
    Set db = CurrentDb() '该变量表示当前在 Microsoft Access 窗口中打开的数据库
    '新表定义名称
    tb.Name = strName
   
    fldName.Name = "姓名"
    fldSex.Type = dbText
    tb.Fields.Append fldName
   
    fldSex.Name = "性别"
    fldSex.Type = dbText
    tb.Fields.Append fldSex
   
    db.TableDefs.Append tb
新建表_Exit:
    Exit Sub
新建表_Err:
    MsgBox strName & "表已存在"
    Resume 新建表_Exit
End Sub

有提示说新建完成，表已经存在，但是我在导航窗格找不到

附   件: