Private Sub Option6_Click()
DoCmd.OpenQuery "GetResult"
MsgBox ("Tabelle Result aktualisiert")
 
 
    Dim Result As ADODB.Recordset
    Set Result = New ADODB.Recordset
 
 
    Result.Open "Result", Application.CurrentProject.Connection, adOpenDynamic, _
      adLockOptimistic
 
    Dim EC As ADODB.Recordset
    Set EC = New ADODB.Recordset
 
wert = InputBox("Please insert year:", "Start!")
 
Set conn = Application.CurrentProject.Connection
    Set rs = CreateObject("ADODB.Recordset")
    stSql = "SELECT * FROM [Result] WHERE year=wert "