窗体循环录入的问题

下面的语句：怎么用循环语句完成？

Dim rst As New ADODB.Recordset
 Dim strSQL As String
      strSQL = ""
     strSQL = "SELECT * FROM 表1 "
     rst.Open strSQL, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
   
     If Not IsNull(Me.Text1) Then
          rst.AddNew
          rst!部门 = Me.Text0
          rst!入库数量 = Me.Text1
          rst.Update
     End If

     If Not IsNull(Me.Text2) Then
         rst.AddNew
         rst!部门 = Me.Text0
         rst!入库数量 = Me.Text2
         rst.Update
     End If

      ...............
     rst.Close
     Set rst = Nothing

  SUB