Companheiros alguém ja teve esse problema:

Isso esta ocorrendo de qualquer forma que eu executo a rotina abaixo, seja executando por formulário ou direto na planilha.

Essa rotina eu peguei foi de um programinha que achei na internet e estou usando ela para desenvolver um projeto. Segue ela abaixo e estou mostrando em qual linha ocorre o tal 400.

Public Sub caminhaoOcup()
j = 2
K = 5
Dim caminhao, motora, fone, codOcup
Dim DB As Database
Dim rs As Recordset
Dim Rs1 As Recordset
Dim Rs2 As Recordset
Dim Rs3 As Recordset

Set DB = OpenDatabase(ThisWorkbook.Path & "transporte.mdb")
    Me.Range("AO6:AQ3000").ClearContents
    Set rs = DB.OpenRecordset("SELECT * FROM [CAMINHAO]")
         
                Do Until rs.EOF
               
                    'Me.Hide
                   
                    Set Rs1 = DB.OpenRecordset("SELECT * FROM [KM] WHERE CAMINHAO=" & rs("COD"))   '& Range("D7") & "", dbOpenSnapshot)
                       If Rs1.RecordCount > 0 Then
                       K = K + 1
                             Rs1.MoveLast
                    'Set Rs2 = DB.OpenRecordset("SELECT * FROM [CAMINHAO$] WHERE COD=" & Rs1("CAMINHAO") & "")
                             Set Rs3 = DB.OpenRecordset("SELECT * FROM [MOTORISTA] WHERE COD=" & Rs1("MOTORISTA"))
                              Me.Cells(K, 41) = rs("PLACA") & " - " & rs("MODELO")
                            Me.Cells(K, 42) = Rs3("NOME")   ' *********************** ( o erro ocorre nesta linha) ***********************
                              Me.Cells(K, 43) = Rs3("FONE")
                             
                   
                        End If
                 rs.MoveNext
                Loop
     Me.Range("AO4") = K - 5
DB.Close

End Sub