VB.NET không gọi được hàm khi click vào button

Đoạn button thêm_click không thể gọi dt

Imports System.Data.SqlClient

Public Class Form1

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        'start connect sql'
        Dim con As SqlConnection
        Dim str As String = "Data Source=(local);Initial Catalog=test;Integrated Security=True"
        con = New SqlConnection(str)
        con.Open()    'end'

        'Các thao tác với Sql'
        Dim command As New SqlCommand()
        Dim dt As New DataTable("KH")   'Tạo một đối tượng Datatable nhận dữ liệu trả về
        Dim da As New SqlDataAdapter()   'Tạo bộ máy DataAdapter thực hiện command
        command.Connection = con ' Kết nối
        command.CommandType = CommandType.Text  'loại lệnh sử dụng là Text hay là một query trong access
        command.CommandText = "Select * From KH"
        da.SelectCommand = command ' gán command cho da
        da.Fill(dt)  'Nạp dữ liệu vào Table
        GridControl1.DataSource = dt 'Load dữ liệu lên DataGridview  ------end

        'Lấy dữ liệu từ table vào txt
        txtmakh.DataBindings.Add("Text", dt, "Mã KH") ' Ở đây ta cần binding textbox txtmakh với giá trị Text ở cột STT của Table
        txtho.DataBindings.Add("Text", dt, "Họ KH")
        txtten.DataBindings.Add("Text", dt, "Tên KH")
        txtsdt.DataBindings.Add("Text", dt, "SĐT")
        txtdiachi.DataBindings.Add("Text", dt, "Địa Chỉ")
    End Sub



    Private Sub btnthem_Click(sender As Object, e As EventArgs) Handles btnthem.Click
        Dim row As DataRow = dt.NewRow()
        row("Mã KH") = txtmakh.Text
        row("Họ KH") = txtho.Text
        row("Tên KH") = txtten.Text
        row("SĐT") = txtsdt.Text
        row("Địa Chỉ") = txtdiachi.Text
        dt.Rows.Add(row)
        GridControl1.DataSource = dt
        Dim commandInsert As New SqlCommand()
        commandInsert.Connection = con
        commandInsert.CommandType = CommandType.Text
        commandInsert.CommandText = "Insert Into KH Values (@Mã KH,@Họ KH,@Tên KH,@SĐT,@Địa Chỉ)"
        commandInsert.Parameters.Add("@Mã KH", SqlDbType.Int, "Mã KH")
        commandInsert.Parameters.Add("@Tên KH", SqlDbType.NVarChar, "Tên KH")
        commandInsert.Parameters.Add("@Họ KH", SqlDbType.NVarChar, "Họ KH")
        commandInsert.Parameters.Add("@SĐT", SqlDbType.NVarChar, "SĐT")
        commandInsert.Parameters.Add("@Địa Chỉ", SqlDbType.NVarChar, "Địa Chỉ")
        da.InsertCommand = commandInsert
        da.Update(dt)
    End Sub

    Private Sub btnxoa_Click(sender As Object, e As EventArgs) Handles btnxoa.Click

    End Sub
End Class