帮忙修改vb net 清空数据库代码

Try
'先标记表中行状态为删除，不能使用Clear方法，此方法会将dataset.table中所有行清除
for each dr as datarow in DataDataSet.Tables("recip").Rows
dr.delete
next
‘然后更新
'注意使用此方法更新必须保存数据表中包含索引
RecipTableAdapter.Update(DataDataSet,"recip")
’然后再AcceptChanges，此动作必须在Update之后
DataDataSet.Tables("recip").AcceptChanges()

Catch ex As Exception
MessageBox.Show(ex.Message, "系统提示", MessageBoxButtons.OK)
End Try