Dim objRS As ADODB.Recordset
Dim strSQL As String
Dim strFrage As String
 
'   Abfragetext
strSQL = "SELECT Frage FROM Fragen;"
 
'   Recordset anlegen
Set objRS = New ADODB.Recordset
 
With objRS
    '   Recordset mit Daten bestücken
    Set .ActiveConnection = cn
    .CursorLocation = adUseClient
    .CursorType = adOpenForwardOnly
    .LockType = adLockOptimistic
    .Source = strSQL
 
    '   Recordset öffnen
    Call .Open(Options:=adCmdText)
 
    '   Ist das Recordset geöffnet worden?
    If (.State = adStateOpen) Then
        '   Daten auslesen, Spalten mit Semikolon und Zeilen mit LineBreak 
        ' trennen
        strFrage = .GetString(adClipString, , Chr$(59), vbNewLine, vbNullString)
 
        '   Abfrage schließen
        .Close
    Else
        '   Keine passende Frage gefunden
        strFrage = "unbekannt"
    End If
End With
'   Recordset entfernen
Set objRS = Nothing

Dim strSQL As String
 
strSQL = "INSERT INTO Fragen (Feldliste) VALUES (Werteliste);"
 
cn.Execute strSQL, , adCmdText

Dim strSQL As String
 
strSQL = "UPDATE Fragen SET Feld = Wert, Feld = Wert WHERE Bedingung;"
 
cn.Execute strSQL, , adCmdText