'--Variablen für Verzeichnis / Dateiauswahl---------------------------------
Dim ImportPfad As String
Dim ExportPfad As String
Dim Dateiname As String
 
Dim SuchWert As String
Dim SuchErgebnisDWG As String
Dim SuchErgebnisPDF As String
...
...
'--Datenbankanbindung--------------------------------------------------------
Dim db As DAO.Database
Dim rs As DAO.Recordset
 
Set db = OpenDatabase(TextBox2.Text & "\Borm_SQL.mdb")
 
Do While Dateiname <> ""
    DoEvents
    Me.Caption = ImportPfad & Dateiname
 
    SuchWert = Left(Dateiname, Len(Dateiname) - 6)
    SuchErgebnisDWG = ImportPfad & SuchWert & "_D.dwg"
    SuchErgebnisPDF = ImportPfad & SuchWert & ".pdf"
 
DoEvents
With db
    .Execute "UPDATE PROD_DEFINITION Set M_ZNAME_PLINE = '" & SuchErgebnisDWG & _
      "' Where PD_NUM = '" & SuchWert & "'"
    .Execute "UPDATE PROD_DEFINITION Set M_ZEICHNUNGSNAME = '" & _
    SuchErgebnisPDF & "' Where PD_NUM = '" & SuchWert & "'"
End With
...
...
Loop

VG

Dirk