主题：求几个命令

我之前 签到按钮的 命令是 ：

Dim md As String
md=Tables("教师签到表").Current("姓名")

If Tables("教师签到表").Current("签到")=False Then
    Dim Result As DialogResult
    Result = MessageBox.Show(md &" 要签到吗?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
    If Result = DialogResult.Yes Then
        Tables("教师签到表").Current("签到")=True
        Tables("教师签到表").Current.Save
        MessageBox.Show(md &" 签到成功","提示")
    End If
Else
    MessageBox.Show(md &" 已签到,不能重复签到","警告")
   
End If