VB运行中提示变量名未定义

Public Sub showemployee()
DataA.RecordSource = "select * from employee"
DataA.Refresh
.Columns("性别").Button = True
DBGA.Columns("学历").Button = True
DBGA.Columns("部门").Button = True
For i = 0 To 2
Mtab(i).Checked = False
Next i
Mtab(0).Checked = True

cutable = "employee"
cuTabCh = True

End Sub
运行时提示DBGA变量名未定义
请问高手如何解决?
谢谢!!!