Dim rst As New ADODB.Recordset
Dim i, GSayi1, GSayi2 As Integer
Dim GAlan, GTabloAdi As String
rst.Open "SELECT * FROM Table1", CurrentProject.Connection, adOpenForwardOnly, adLockReadOnly
GTabloAdi = "YeniTablo"
GSayi1 = Val(Left([Metin1], InStr(1, [Metin1], "-") - 1)) - 1
GSayi2 = Val(Mid([Metin1], InStr(1, [Metin1], "-") + 1)) - 1
For i = GSayi1 To GSayi2
GAlan = GAlan & "," & rst.Fields(i).Name
Next i
GAlan = Right(GAlan, Len(GAlan) - 1)
DoCmd.RunSQL "SELECT " & GAlan & " INTO " & GTabloAdi & " FROM Table1;"
End Sub
Metin kutusuna 1-2 şeklinde tire koyarak yazmalısın.