如图，当文本框接收到 条形码扫描仪器的内容后，如何将所扫描的内容自动加入到 《第一列》

例如 文本框内 返回的内容是  《123456》 系统自动判断 是否是产品库内已有数据，如果是已有数据，自动添加到 表格的《第一列》； 如果不吻合，则提示“没有产品信息”请添加产品

Dim dr As DataRow
Dim str As String = Forms("窗口11").Controls("TextBox1").Value
dr= DataTables("产品库").Find("产品名称 =\'" & Str & "\'")
If dr IsNot Nothing Then
    Dim r As Row = Tables("要输入的表").AddNew
    r("第一列") = Str
    str = Nothing
Else
    MessageBox.Show("产品库无此产品!","提示")
    Return
    str = Nothing
End If

  放在文本框的文本框改变的事件中执行!