如何一次性地清除已经输入进去的全部数据呢？也即初始化数据库！

这是我删除控件的代码，如何再改成一次性清除全部已经输入的数据事项初始化呢？
Private Sub Cmdel_Click()

If MsgBox("要删除吗?", vbExclamation + vbYesNo) = vbYes Then
Rst.Delete
MsgBox "删除成功！"
Else
End If

Rst.MoveNext
If Not Rst.EOF() Then

Text1.Text = Rst.Fields("dm").Value
Text2.Text = Rst.Fields("xm").Value
Else
Rst.MoveFirst
Text1.Text = Rst.Fields("dm").Value
Text2.Text = Rst.Fields("xm").Value
End If

End Sub

Rst.Delete adAffectAll
这句是什么意思么?大概是删除全部记录的意思吧?



Private Sub Command5_Click()

If Not Rst.EOF() Then
If MsgBox("要删除吗?", vbExclamation + vbYesNo) = vbYes Then
Rst.Delete adAffectAll
MsgBox "删除成功！"
Else
End If
Else
End If
End Sub