Sure. In a VBA module, add a reference to "Microsoft ActiveX Data
Objects 2.x Library" (Tools, References). Then in your code, do
something like this:
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.