Hallo Herr Furchau,
Ich habe den Hinweis umgesetzt.
nachfolgender Programm-Code bring den gleichen Fehler
wie gehabt..

strSQL1 = _
"INSERT INTO lib1.file1 (TSACHN) VALUES(" & Sachn & ")"
With cmd400
strSQL2 = "ADDLIBLE LIB(lib2)"
.Execute "{{CALL QSYS.QCMDEX('" & strSQL2 & "'," & Format$(Len(strSQL2), "0000000000.00000") & ")}}"
strSQL2 = "ADDLIBLE LIB(lib3)"
.Execute "{{CALL QSYS.QCMDEX('" & strSQL2 & "'," & Format$(Len(strSQL2), "0000000000.00000") & ")}}"
.CommandText = strSQL1
.CommandType = adCmdText
.Execute
End With

ich habe den Programmcode geändert in dem ich ein SQL Statement
mit STRQMQRY aufrufe. Nachfolgender Code

With cmd400
strSQL2 = "ADDLIBLE LIB(lib2)"
.Execute "{{CALL QSYS.QCMDEX('" & strSQL2 & "'," & Format$(Len(strSQL2), "0000000000.00000") & ")}}"
strSQL2 = "ADDLIBLE LIB(lib3)"
.Execute "{{CALL QSYS.QCMDEX('" & strSQL2 & "'," & Format$(Len(strSQL2), "0000000000.00000") & ")}}"
strSQL2 = "STRQMQRY QMQRY(lib1/file1) SETVAR((SACHN " & Sachn & "))"
.Execute "{{CALL QSYS.QCMDEX('" & strSQL2 & "'," & Format$(Len(strSQL2), "0000000000.00000") & ")}}"
End With

Dieser VBA-Code wird ohne Fehler abgearbeitet aber Sachn ist in lib1/file1
nicht vorhanden. Das Jobprotokoll zum Job QZDASOINIT sagt auch nichts aus.

????????