Private Sub Export_Click()
'Transfer a single record from the form fields to an Excel workbook.
  Dim doc As Document
  Dim strCARNumber As String
  Dim strLocation As String
  Dim strDate As Date
  Dim strRisk As String
  Dim strCategory As String
  Dim strDetails As String
  Dim strInitiator As String
  Dim strResponsible As String
  Dim strDepartment As String
  Dim strDateComplete As String
  Dim strDateVerified As Date
  Dim strSQL As Date
  Dim cnn As ADODB.Connection
  'Get data.
  Set doc = ActiveDocument
  On Error GoTo ErrHandler
  strCARNumber = Chr(39) & doc.FormFields("txtCARNumber").Result & Chr(39)
  strLocation = Chr(39) & doc.FormFields("txtLocation").Result & Chr(39)
  strDate = Chr(39) & doc.FormFields("txtDate").Result & Chr(39)
  strRisk = Chr(39) & doc.FormFields("txtRisk").Result & Chr(39)
  strCategory = Chr(39) & doc.FormFields("txtCategory").Result & Chr(39)
  strDetails = Chr(39) & doc.FormFields("txtDetails").Result & Chr(39)
  strInitiator = Chr(39) & doc.FormFields("txtInitiator").Result & Chr(39)
  strResponsible = Chr(39) & doc.FormFields("txtResponsible").Result & Chr(39)
  strDepartment = Chr(39) & doc.FormFields("txtDepartment").Result & Chr(39)
  strDateComplete = Chr(39) & doc.FormFields("txtDateComplete").Result & Chr(39)
  strDateVerified = Chr(39) & doc.FormFields("txtDateVerified").Result & Chr(39)
  'Define sql string used to insert each record in the destination workbook.
  'Don't omit the $ in the sheet identifier.
  strSQL = "INSERT INTO [Sheet1$]" _
    & " (CAR_No., Category, Department, Site_Location, Initiator, Responsible_Party, Date_Raised, Details, Priority, Date_completed, Date_verified)" _
    & " VALUES (" _
    & strCARNumber & ", " _
    & strLocation & ", " _
    & strDate & ", " _
    & strRisk & ", " _
    & strCategory & ", " _
    & strDetails & ", " _
    & strInitiator & ", " _
    & strResponsible & ", " _
    & strDepartment & ", " _
    & strDateComplete & ", " _
    & strDateVerified _
    & ")"
  Debug.Print strSQL
  'Define connection string and open connection to destination workbook file.
  Set cnn = New ADODB.Connection
  With cnn
    .Provider = "Microsoft.ACE.OLEDB.12.0"
    .ConnectionString = "Data Source=(withheld);" & _
      "Extended Properties=Excel 8.0; HDR=No"
    .Open
    'Transfer data.
    .Execute strSQL
  End With
  Set doc = Nothing
  Set cnn = Nothing
  End Sub
ErrHandler:
  MsgBox Err.Number & ": " & Err.Description, _
    vbOKOnly, "Error"
  On Error GoTo 0
  On Error Resume Next
  cnn.Close
  Set doc = Nothing
  Set cnn = Nothing
End Sub