database record to Word template?

[vanremo]

The code below works fine from Access, but from SQL Server (commented string), only the last of the bookmarks in the Word template has the field data filled in (strange). Any ideas? A driver issue?

Sub PrintForm(showOnly,uid)
    On Error Resume Next
    Dim wdApp,mDoc,SQLstr,cnStr,rs,db
    Set wdApp = CreateObject("Word.Application")
    Set db=CreateObject("ADODB.Connection")
    wdApp.Visible=true
    cnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & databasePath & ";User ID=admin;Password=;"
    'cnStr = "Provider=SQLOLEDB;Data Source=" & databasePath & ";Database=databasename;UID=user;PWD=pw;"
    SQLstr = "SELECT * FROM [" & tableName & "] WHERE [ID]=" & uid & ";"
    Set mDoc = wdApp.Documents.Add("\\server\forms\template2.dot")
    db.Open cnStr
    Set rs=db.Execute(SQLstr,,1)    
 
    For i = 0 to rs.Fields.Count-1
        If mDoc.Bookmarks.Exists(rs(i).name) then mDoc.Bookmarks(rs(i).name).Range.Text="" & rs(i).value
    Next
 
    rs.Close
    Set rs=Nothing
    db.Close
    Set db=Nothing
    Select Case showOnly
        Case True
            wdApp.Visible = True
        Case False
            mDoc.PrintOut False
            wdApp.Quit 0
            Set mDoc = Nothing
            Set wdApp = Nothing
    End Select
 
End Sub
 

Thanks for your help.