主题：多列填充

Dim Vals As List(of String())
Vals = DataTables("来源表").GetValues("产品|客户")
For i As Integer = 0 To Vals.Count - 1
    Dim dr As DataRow = DataTables("接收表").AddNew()
    dr("产品") = Vals(i)(0)
    dr("客户") = Vals(i)(1)
Next

以上代码放在一个菜单按钮事件中，点击一下这个按钮，会填充一次所有的相关信息，点击第二次又重复填充一次所有的信息。

请问如何做到，以前有填充过的信息，在重复点击这个按钮后不会再重复填充？请问要如何做？