Public Function TaoTableDataset(ByRef strConnection As String, ByVal strTablename As String, ByVal _
                  strSQlorStoredProc As String, ByVal Bln As Boolean, ByRef dsDataset As  _
                  DataSet) As DataSet     
        Dim sqlConn As New SqlClient.SqlConnection(StrConn)
        sqlConn.Open()
            Dim da As New SqlClient.SqlDataAdapter()
            Dim dttb As DataTable = New DataTable(strTablename)
            da.TableMappings.Add("Table", strTablename)
            Dim cmdTable As SqlClient.SqlCommand = New SqlClient.SqlCommand(strSQlorStoredProc, sqlConn)
          If Bln Then
            cmdTable.CommandType = CommandType.StoredProcedure
        Else
            cmdTable.CommandType = CommandType.Text
        End If
          da.SelectCommand = cmdTable
          da.Fill(dsDataset)      
         Return dsDataset
    End Function

      Protected MyBindingManagerBase As BindingManagerBase
      Protected dsData As DataSet
      Private Sub FrmDNCapThe_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
            Dim T_SQL As String = "Select * from [DLTHE]"
            Dim bln As Boolean = False
            Dim dsData As New DataSet
            Dim dttb As DataTable = New DataTable("DLTHE")
            dsData = TaoTableDataset(StrConn, "DLTHE", T_SQL, bln, dsData)
       
            dtgDuLieuThe.DataSource = dsData
            dtgDuLieuThe.DataMember = "DLTHE"
       
            MyBindingManagerBase = BindingContext(dsData, "DLTHE")
            
            Binding_Control_Field_datatable()           
            dtgDuLieuThe.DataSource = dsData.Tables("DLTHE").DefaultView     
           
      End Sub

Sub Binding_Control_Field_datatable()
        Dim dsData As New DataSet      
            Me.txtSoDN.DataBindings.Add(New Binding("Text", dsData, "DLTHE.SODN"))
        txtMaDVi.DataBindings.Add(New Binding("Text", dsData, "DLTHE.Madvi"))
        txtTenDVi.DataBindings.Add(New Binding("Text", dsData, "DLTHE.TENDVI"))
        cboLoaiDT.DataBindings.Add(New Binding("Text", dsData, "DLTHE.LOAIDT"))
        TxtSoLD.DataBindings.Add(New Binding("Text", dsData, "DLTHE.SOLD"))
        cboLoai_DK.DataBindings.Add(New Binding("Text", dsData, "DLTHE.LOAI_DK"))
        txtTuNgay.DataBindings.Add(New Binding("Text", dsData, "DLTHE.TUNGAY"))
        txtDenNgay.DataBindings.Add(New Binding("Text", dsData, "DLTHE.DENNGAY"))
        txtSoTien.DataBindings.Add(New Binding("Text", dsData, "DLTHE.SOTIEN"))
        txtVanBan.DataBindings.Add(New Binding("Text", dsData, "DLTHE.VANBAN"))
        txtSotien_Dong.DataBindings.Add(New Binding("Text", dsData, "DLTHE.SOTIEN_DONG"))
        txtSoDN.DataBindings.Add(New Binding("Text", dsdata, "DLTHE.STT"))
        txtNgayLapPhieu.DataBindings.Add(New Binding("Text", dsdata, "DLTHE.NGAYLAPHIEU"))
        TxtGhiChu.DataBindings.Add(New Binding("Text", dsData, "DLTHE.GHICHU"))
        txtNgay.DataBindings.Add(New Binding("Text", dsData, "DLTHE.NGAY"))
    End Sub