Sub AddGlossary() Dim My_Range As Range Dim conConnector As New ADODB.Connection Dim rstResults As ADODB.Recordset Set conConnector = New ADODB.Connection conConnector.Open "Provider='Microsoft.JET.OLEDB.4.0';Data Source='C:\glossary.mdb';" Set rstResults = New ADODB.Recordset ‘SQL Statement Set rstResults = conConnector.Execute("SELECT * FROM glossary") Do Until rstResults.EOF Debug.Print rstResults![glossary] Debug.Print rstResults![term_name] Debug.Print rstResults![definition] no_of_pars = ThisDocument.Paragraphs.Count Set My_Range = ThisDocument.Paragraphs(no_of_pars).Range With My_Range .Bold = flase .Font.Size = 10 .Text = rstResults![glossary] + vbTab + rstResults![term_name] + vbTab + rstResults![definition] End With ThisDocument.Paragraphs.Add ThisDocument.Paragraphs.Add rstResults.MoveNext Loop conConnector.Close End Sub