Sub btn_StatusSetzen_Klicken()
Dim db_Status As Boolean
Const adOpenForwardOnly As Long = 0
Const adCmdText As Long = 1
Dim db As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim sConnect As String
Dim sSQL As String
Dim x As Integer
Dim diag As Object
Set diag = DialogSheets("ReklaDialog")
If db_Status = False Then
sSQL = "SELECT * FROM sani.dbo.AuftragStatusZuordnung, Rechnungsposition"
sConnect = "DSN=sani97;" & _
"UID=sani_user;" & _
"PWD=sani97;" & _
"IFSN=sani97sql;" & _
"DB=sani97;" & _
"applicationname=REKLA-EXCEL"
db.Open sConnect
db_Status = True
rs.Open sSQL, sConnect, adOpenForwardOnly, adLockReadOnly, adCmdText
With rs
If Not rs.EOF And rs.RecordCount > 0 Then
Do Until rs.EOF = True
If rs.Fields("RechnungNr").Value <> 0 And rs.Fields("AuftragNr").Value <> 0 Then
x = 1
Exit Do
Else
rs.MoveNext
End If
Loop
End If
rs.Close
End With
End If
If x = 1 Then
End If
End Sub