Sub writeRS()
 
Dim a As Integer
Dim b As String
Dim c As String
 
a = InputBox("Gib deine Zahl ein")
b = InputBox("Gib dein Datum ein")
 
c = "Insert Into t_test2 (Zahl,Datum) Values ( 'a'  , 'b')"
CurrentDb.Execute c
End Sub