Public dbm As ADODB.Connection
Public rsm As Recordset
 
 
Public Sub closedb()
 
    rsm.Close
    dbm.Close
    Set rsm = Nothing
    Set dbm = Nothing
 
 End Sub
 
 Public Sub opendb()
 
    Set dbm = New ADODB.Connection
    Set rsm = New ADODB.Recordset
    dbm.Open "Provider=MSDASQL;DSN=Tobi VB"
 
 End Sub

Private Sub bt_aktualisieren_Click()
 
datum = Format(Date & " " & Time, "yyyy-mm-dd hh:mm:ss")
Let anzahl = "0"
Let txt_z_ident = "4"
Let txt_z_status = "9"
 
While anzahl <= ident_count
 DoEvents
 ShowProgress picprogress, anzahl, 1, ident_count
 
        identcode = txt_ReadLine(App.Path & "\auto\" & auto_text & ".txt", _
          txt_z_ident)
        identcode_cut = Mid(identcode, 8, 5)
        status_txt = txt_ReadLine(App.Path & "\auto\" & auto_text & ".txt", _
          txt_z_status)
 
opendb
    SQL = "SELECT * FROM identcode_status WHERE identcode_status_name = '" & _
      status_txt & "'"
    rsm.Open (SQL), dbm
    status_db = rsm("identcode_status_id")
 
 
rsm.Open "UPDATE orders SET identcode_status = " & status_db & " WHERE" & _
  "identcode = '" & identcode_cut & "'", dbm
rsm.Open "UPDATE orders SET identcode_status_date ='" & datum & " ' WHERE" & _
"identcode = '" & identcode_cut & "'", dbm
 
    If status_db = 2 Then
        rsm.Open "UPDATE orders SET orders_status = 4", dbm
    End If
 
 
    Let anzahl = anzahl + 1
    Let txt_z_ident = txt_z_ident + 6
    Let txt_z_status = txt_z_status + 6
Wend
 
MsgBox "Fertig"
End Sub

Blumen sind die sch?nste Sprache der Welt!
Visual Basic ist die aller sch?nste