Dim wdApp As Object, wdDoc As Object
On Error Resume Next
Set wdApp = GetObject(, "Word.Application")
If wdApp Is Nothing Then
  Set wdApp = CreateObject("Word.Application")
End If
On Error GoTo 0
With wdApp
  Set wdDoc = .Documents.Add("template path & name")
  With wdDoc
    .Formfields("EmployID").Result = Me.cboID.Value
    .Formfields("FName").Result = Me.txtFName.Value
    .Formfields("GName").Result = Me.txtGName.Value
    .Formfields("DOB").Result = Me.txtDOB.Value
  End With
End With