For Each s As String In e.form.controls("TextBox1").Text Dim nr As Row = Tables("表A").addnew nr("第一列") = s Next