Dim Cn As New ADODB.Connection
 
With Cn
    .CursorLocation = adUseClient
    .Provider = "SQLOLEDB"
    .ConnectionString = "Data Source='SERVER03\CTO'; Initial" & _
      "Catalog='XXXX';User ID='XXXX';Password='XXXX'"
    .Open
End With
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 Cn
    .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
 
    Dateiname = Dir
    If ProgressBar1 + 1 > ProgressBar1.Max Then Exit Do
    ProgressBar1 = ProgressBar1 + 1
    DoEvents
Loop
 
ProgressBar1.Value = 0
Me.Caption = "Durchlauf beendet"
Me.CmbOK.SetFocus
 
Cn.Close

VG

Dirk