Microsoft Access 掲示板

自分が作ったアクセスのファイル（サーバーに置いたもの）を今まで問題なく使ってきましたが、最近別の方にも使ってもらうことになり、同場所に置いたファイルを利用させたところ、自分には出ないエラーが出たりします。
以前ここで教えていただいたコードを利用しており、具体的に言うとトップページのテキストボックスに別アプリのデータをコピペしたものを貼り付け、データ追加ボタンをクリックすると、レコードが追加されるという内容です。
自分の環境ではメッセージは「追加クエリですべてのレコードを追加できません。」といったものだけなのですが（これは理解していますので問題ありません）

他の方の環境では、2件のデータを追加しようとすると
「２件のレコードが指定したテーブルから削除されます。」
⇒ポップアップに対して「はい」
「追加クエリを実行すると、テーブルのデータが変更されます」
⇒ポップアップに対して「はい」
「２件のレコードを追加します。」
⇒ポップアップに対して「はい」
「追加クエリですべてのレコードを追加できません」
⇒ポップアップに対して「はい」
「更新クエリを実行すると、テーブルのデータが変更されます。
⇒ポップアップに対して「はい」
「●●●件のレコードが更新されます」←●●●は追加先テーブルのすべてのレコード数

ここではいを押すのをやめました…。
また、他の方の環境では立ち上げ自体も重く感じます。
同じサーバーに置いたデータを扱っているのに、何が変わってくるのでしょうか…。
理解不足で申し訳あり前ませんが、何卒よろしくお願いいたします。

具体的なコードは以下になります。
※途中でいくつか、取り込んだデータの内容を変更するクエリを実行させているの（たとえばある条件であれば、フラグを立てるクエリとか）ですが直接関係ないと思ったので抜いています。

Private Sub btnデータ追加_Click()
    '前回のデータを削除する
    DoCmd.RunSQL "DELETE * from T_案件データ"
             
    If Me.txtデータ.Value = "" Then
    MsgBox "テキストボックスが空です。"
    Exit Sub
        
    ElseIf IsNull(Me!txtデータ) Then
    MsgBox "テキストボックスが空です。"
    Exit Sub

    Else
    'テキストボックス内のデータを追加する
    Call AddData("T_案件データ", Me.txtデータ)
    Me.txtデータ.Value = ""
    
    End If  
    
        
'今取り込んだデータを開く
       DoCmd.OpenForm "F_案件", , , " 案件NO In (SELECT  案件NO FROM T_案件データ)"

End Sub

Private Sub AddData(tblname As String, ByRef S As String)
    Dim db As DAO.Database
    Dim rs As DAO.Recordset
    Dim a, i As Long, j As Long
    Dim Datas

    Set db = CurrentDb
    Set rs = db.OpenRecordset(tblname)
    a = Split(S, vbNewLine)
    For i = 0 To UBound(a)
        Datas = Split(a(i), vbTab)
        rs.AddNew
        On Error Resume Next
        For j = 0 To UBound(Datas)
            rs(j) = Datas(j)
        Next
        On Error GoTo 0
        rs.upDate
    Next
    
End Sub