' Variablendeklaration
Dim con         As ADODB.Connection
Dim rs(1)       As ADODB.Recordset
Dim x           As Integer
 
Sub test()
    ' Instanzieren der Connection und der Recordsets
    Set con = CurrentProject.Connection
    Set rs(0) = New ADODB.Recordset
    Set rs(1) = New ADODB.Recordset
 
    ' Withblock für Quelltabelle
    With rs(0)
        ' öffnen der Quelltabelle (Tabelle1)
        .Open "Select * from Tabelle1", con, adOpenKeyset, adLockOptimistic
        ' wenn etwas gefunden wurde (EOF ist dann FALSE), dann
        If .EOF = False Then
            ' gehe zum ersten Datensatz
            .MoveFirst
            ' wir öffnen die Verbindung zur Ziel Tabelle (Tabelle2)
            rs(1).Open "select top 1 * from Tabelle2", con, adOpenKeyset, _
              adLockOptimistic
            ' mache solange, wie sich Daten in Tabelle1 befinden
            Do While .EOF = False
                ' Schleife von 0 (der Erste ist 0) bis (Anzahl der Häppchen, 
                ' die sich beim Zerhacken des Strings beim Zeichen " " ergeben)
                For x = 0 To UBound(Split(.Fields(1).Value, " "))
                    ' füge Datensatz in Tabelle1 ein
                    rs(1).AddNew
                        ' erstmal das führende Zeichen
                        rs(1).Fields(0).Value = Split(.Fields(0).Value, " ")(0)
                        ' dann das Häppchen
                        rs(1).Fields(1).Value = Split(.Fields(1).Value, " ")(x)
                    ' sichern der Daten
                    rs(1).Update
                Next x
                ' nächster Datensatz in Tabelle1
                .MoveNext
            Loop
            ' schliesse Verbindung zu Tabelle2
            rs(1).Close
        End If
        ' schliesse Verbindung zu Tabelle1
        .Close
    End With
 
    'Instanzen terminieren
    Set rs(1) = Nothing
    Set rs(0) = Nothing
    Set con = Nothing
End Sub

Peter71