Attribute VB_Name = "Module_清空通訊錄查詢"
Sub 清空通訊錄查詢(frm As Form)
With frm
   
   .DataCombo分組.Text = " "
   .txt姓名.Text = " "
   .DataCombo性別.Text = " "
   .txt固定電話.Text = " "
   .txt移動(dòng)電話.Text = " "
   .txtemail.Text = " "
   .txtqq.Text = " "
   .DataCombo省市名稱.Text = " "
   .txt通訊地址.Text = " "

End With
End Sub