Option Compare Database
 
Option Explicit
Sub writeRS()
 
Dim a As String
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 (Inhalt,Datum) Values ( 'a'  , 'b')"
 
End Sub