Dim strSQL As String = _
  "INSERT INTO dbo.Prüf_1(Fragen_ID" & _
  ",Frage,A,antw_A,B,antw_B,C,antw_C,D,antw_D,S_1) SELECT Fragen_ID" & _
  ",Frage,A,antw_A,B,antw_B,C,antw_C,D,antw_D,S_1 FROM dbo.Sachgebiet_1" & _
  "WHERE Fragen_ID IN (" & label.7001.Text & "," & label_7002.Text & "," & _
  label_7003.Text & ")"

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist