Dim tk_provider = "Provider=Microsoft.ACE.OLEDB.12.0"
        Dim tk_database = "Data Source=" & Server.MapPath("NineP.accdb")
        Dim tk_conn As New OleDbConnection(tk_provider & ";" & tk_database)
        Dim tk_sql As String

        tk_conn.Open()

        tk_sql = "SELECT 字,筆劃數  FROM 字庫資料表"

        Dim DtApter As OleDbDataAdapter = New OleDbDataAdapter(tk_sql, tk_conn)
        Dim DtSet As DataSet = New DataSet
        DtApter.Fill(DtSet, "table01")
        Dim m_tb1 As DataTable
        m_tb1 = DtSet.Tables("table01")

        Dim i, j, k, l As Integer

        k = 0
        For i = 0 To m_tb1.Rows.Count - 1
            If m_tb1.Rows(i).Item(0).ToString() = TextBox1.Text Then
                Label1.Text = m_tb1.Rows(i).Item(1).ToString()
            End If
        Next

        tk_conn.Close()