VERSION 5.00
Begin VB.Form frmTest 
   BorderStyle     =   1  'Fest Einfach
   Caption         =   "Wahltaste"
   ClientHeight    =   3690
   ClientLeft      =   45
   ClientTop       =   435
   ClientWidth     =   9720
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   3690
   ScaleWidth      =   9720
   Begin VB.CommandButton Command1 
      Caption         =   "Command1"
      Height          =   825
      Left            =   2730
      TabIndex        =   0
      Top             =   1350
      Width           =   2145
   End
End
Attribute VB_Name = "frmTest"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Sub Test()
Dim objConn As ADODB.Connection
Dim rsTest As ADODB.Recordset

Set objConn = New ADODB.Connection
Set rsTest = New ADODB.Recordset
On Error GoTo err_Handler
  strPath = App.Path
  If Right$(strPath, 1) <> "\" Then strPath = strPath & "\"

  With objConn
    .Provider = "Microsoft Jet 4.0 OLE DB Provider"
    .Properties("Jet OLEDB:Database Password") = VarPasswordDatenbank
    .ConnectionString = "Data Source=" & VarDatenbank
    .CursorLocation = adUseClient
    .Open
  End With

With rsTest
    .ActiveConnection = objConn
    .CursorLocation = adUseClient
    .LockType = adLockOptimistic
    '.Open "Select *FROM ArtikelTasten Where ID =" & VarlokalID & ""
    .Open "Select *FROM Rechnungsuebesicht"

End With

While Not rsHauptasten.EOF
 rsTest.Fields("KARTE").Value = ""
 rsTest.Fields("GUTSCHEIN").Value = ""

Wend
rsTest.Update
exit_Sub:
  On Error GoTo 0
  Exit Sub

err_Handler:
  MsgBox "Fehlernummer " & Err.Number & Chr$(13) & Error$(Err), _
            vbCritical, "Fehler"
    
  Resume exit_Sub

Set objConn = Nothing
Set rsTest = Nothing
End Sub

Private Sub Command1_Click()
Test
End Sub