ดึงข้อมูล ฟิวดาต้าเบส ยังไง ช่วยตอบทีครับ

ต้องการทำจดหมายเวียนใน vb ครับ ประมาณว่าดึง เอกสาร word ขึ้นมา แล้วมาแก้ไขใน vb
แต่ปัญหาคือ ตรงบันทัด ที่มีเครื่องหมาย ?? น่ะครับ ผมต้องการเปลี่ยนให้ดึงค่าจากฐานข้อมูล จาก ฟิว"name" โดยไม่ต้องแสดงใน textbox  
แค่เลือกข้อมูลจาก datagridview กดตกลง แล้วให้ merge ออกมาโดยอัตโนมัติ

Imports System.Data.OleDb
Imports Microsoft.Office.Interop
Public Class Form1
    Dim data As String = ("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\Administrator\Desktop\test.accdb")
    Dim con As New OleDbConnection(data)
    Dim objword As Microsoft.Office.Interop.Word.Application
    Dim objdoc As Microsoft.Office.Interop.Word.Document
    Private Sub sub_dados(header As String, data As String)
        With objword.Selection.Find
            .ClearFormatting()
            .Text = header
            .Execute()
            .Forward = False
        End With
        Clipboard.Clear()
        Clipboard.SetText(data)
        objword.Selection.Paste()
        Clipboard.Clear()
    End Sub
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        'TODO: This line of code loads data into the 'TestDataSet.yo' table. You can move, or remove it, as needed.
        Me.YoTableAdapter.Fill(Me.TestDataSet.yo)


    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        objword = New Microsoft.Office.Interop.Word.Application
        objdoc = objword.Documents.Open("C:\Users\Administrator\Desktop\name.docx")

        Call sub_dados("@name",textbox1.text)                    ** ? ? ?????????????????????????????????? ? ? **

        objword.ActiveDocument.SaveAs2("C:\Users\Administrator\Desktop\x\name.docx")
        objword.Quit()
        MsgBox("Yo what up")
        objword = Nothing
    End Sub
End Class

รบกวนหน่อยน่ะครับผมมือใหม่จริงๆ ถ้าเป็น ไปได้ ขอตัวอย่างโค๊ด พร้อมอธิบายสักนิดน่ะครับ