如何分割数据，然后逐行录入

例如我有快递单号   12344   124354   2344555  ...N  个单号
我在一个文本框，用换行分割，怎么实现逐行录入呢，就是一个单号一条数据


Dim Arr
Arr = Split(Text1.Text, vbCrLf)
    sql = "select * from 退货单号 where 快递单号  = '" & Text1.Text & "'"
    rs.Open sql, conn, adOpenKeyset, adLockPessimistic
    rs.AddNew
    If Not rs.EOF And Not rs.BOF Then
   
    For i = 0 To UBound(Arr)
     rs("快递单号") = Arr(i)
    Next i
    rs.Update
    coon.close
 End If

这代码只能录入最后一条，不能分别录入，请各位老师帮忙一下