Dim sql As String = "Insert Into er(id_anla1,id_er1) Value (id_a1,id_e1)"

Dim sql As String
' Wenn  id_a1 ein für numerischer ganzzahliger Wert ist:
sql="Insert Into er(id_anla1, ... ) Value (" & id_a1 & ", ...)" 
' Wenn id_a1 Datum / Zeit Werte enthält:
sql="Insert Into er(id_anla1, ... ) Value (#" & format(id_a1,"dd-mmm-yyyy" & _
  "hh:mm:ss") & "#, ...)" 
' Wenn id_a1 Text enthält:
sql="Insert Into er(id_anla1, ... ) Value ('" & id_a1 & "', ...)"

msgbox sql