Public Class Frm_Buha
    Private Sub Frm_Yk_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Me.bs.DataSource = DSET1.tbl_buha
    End Sub
End Class