Hi Ralf,
ich hab’s. 
(von AVB)
Dim RS as Recordset gelöscht, wird nicht benötigt.
Ausgeführt wir der string einfach mit …
DB.Execute(SqlStr)
Ich wollte das immer an irgendetwas übergeben, das war der Fehler.
Gruß, Rainer
Problem gelöst
Hallo,
für alle, die es interessiert die Lösung:
Option Explicit
Private Sub Command1\_Click()
Dim DB As Database
Dim SQLStr As String
Dim s(6) As String
Dim i As Integer
s(0) = 'INSERT INTO [ZielTabelle] ( Feld1, Feld2, Feld3 ) '
s(1) = 'SELECT QuellTabelle.Feld1, QuellTabelle.Feld2, QuellTabelle.Feld3 '
s(2) = 'FROM QuellTabelle WHERE (((QuellTabelle.Feld1)\>='
s(3) = '#1/1/2007#'
s(4) = 'And (QuellTabelle.Feld1)
Gruß, Rainer