Sub DataInsert()
Dim loConnection As New ADODB.Connection
Dim loRecordset As New ADODB.Recordset
Dim loRange As Word.Range
loConnection.Open ("MyDsnName")
With loRecordset
Set .ActiveConnection = loConnection
.Open ("SELECT * FROM MyTableName")
Set loRange = Selection.Range.Duplicate
While Not .EOF
loRange.InsertAfter .Fields("MyFieldName") & vbCrLf
.MoveNext
Wend
.Close
End With
loConnection.Close
Set loRange = Nothing
Set loRecordset = Nothing
Set loConnection = Nothing
End Sub
This code assumes you have a Data Source Name called "MyDsnName"
already defined, and that it has a table or view in it called
MyTableName with a field called MyFieldName.