Option Explicit
'Included as Project References
'Microsoft Scripting Runtime
'Microsoft ADO Ext. for DDL and Security
'Microsoft ActiveX Data Object 2.x Library
'Microsoft DataBinding collection
 
Dim rs_fragebogen As ADODB.Recordset
Dim rs_optionsfelder As ADODB.Recordset
 
Dim strSearch As String
Dim strEditRec As String
Dim vntBookMark As Variant
Dim intResponse As Integer
Dim frage As Integer
 
     strDbName = "efqm.mdb"                      'database name to use
 
    'strFilespec and strConn are declared in modCreateDatabase.bas
    'in a client-server environment, the db path would be on the network server
    'using an ODBC compliant provider.
    'this demo was modified to run on a stand-alone computer.
 
    strFilespec = App.Path & "\db\" & strDbName
    strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strFilespec & _
      ";"
 
    Set cn_efqm = New ADODB.Connection              'use ADO connection
    Set rs_fragebogen = New ADODB.Recordset         'and ADO recordset
    Set rs_optionsfelder = New ADODB.Recordset      'and ADO recordset
 
    If cn_efqm.State = adStateClosed Then    'newly-created db may be open so
        cn_efqm.CursorLocation = adUseClient 'create client side
        cn_efqm.Open strConn                 'check first before opening
    End If
 
rs_fragebogen.Open "SELECT * FROM aussage WHERE kriterium = " & kriteriumid & "" & _
  "ORDER BY sort", cn_efqm, adOpenDynamic, adLockBatchOptimistic, adCmdText

rs_fragebogen("antwort") = 3
rs_fragebogen.Update