Private Sub Test_Click()
 
Dim SuchWert As String
Dim SuchErgebnis As String
Dim db As DAO.Database
 
Set db = OpenDatabase(TextBox2.Text & "\Borm_SQL.mdb")
'Set db = CurrentDb
 
'--Datenbankfeld (PD_NUM)--------------------------------------
SuchWert = "BTG-KEIL-OSTEZA-VN"
'--Dieses soll in das Feld (M_ZNAME_PLINE) übergeben werden----
SuchErgebnis = ImportPfad & "BTG-KEIL-OSTEZA-VN_D.dwg"
 
'--PROD_DEFINITIO = Tabellenname-------------------------------
db.Execute "UPDATE PROD_DEFINITION Set M_ZNAME_PLINE = 'SuchErgebnis'" & _
           "Were PD_NUM = 'SuchWert'"
 
db.Close

Private Sub cmdDurchlauf_Click()
If TextBox1.Text = "" Then GoTo MyErrorHandler
 
Dim ImportPfad As String
Dim Dateiname As String
Dim SuchWert As String
Dim SuchErgebnis As String
 
ImportPfad = TextBox1.Value & "\" 'Verzeichnis über Ordnerauswahl
 
Dateiname = Dir(ImportPfad & "*.dwg")
 
Dim db As DAO.Database
Set db = OpenDatabase(TextBox2.Text & "\Borm_SQL.mdb")
 
Do While Dateiname <> ""
    SuchWert = Left(Dateiname, Len(Dateiname) - 6)
    SuchErgebnis = ImportPfad & SuchWert & "_D.dwg"
    db.Execute "UPDATE PROD_DEFINITION Set M_ZNAME_PLINE = 'SuchErgebnis'" & _
               "Were PD_NUM = 'SuchWert'"
    Dateiname = Dir
Loop
 
db.Close
 
End Sub

VG

Dirk