كيف اتعامل مع databindings و ال combobox - نسخة قابلة للطباعة

كود :
Private Sub BtnEdit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnEdit.Click

        Frm_bank_update.Txtbank_id.Text = Txtbank_id.Text



        Frm_bank_update.Txtbank_name.Text = Txtbank_name.Text

        Frm_bank_update.Txtbank_address.Text = Txtbank_address.Text

        Frm_bank_update.Txbank_swiftcode.Text = Txbank_swiftcode.Text

        Frm_bank_update.Txtbank_phone.Text = Txtbank_phone.Text

        Frm_bank_update.Txtbank_mobile.Text = Txtbank_mobile.Text

        Frm_bank_update.Txbank_fax.Text = Txtbank_fax.Text

        Frm_bank_update.Txtbank_email.Text = Txtbank_email.Text

        Frm_bank_update.Txtbank_webpage.Text = Txtbank_webpage.Text

        Frm_bank_update.DTPbank_fisicalyear.Value = DTPbank_fisicalyear.Value

        Frm_bank_update.Txtbank_postalcode.Text = Txtbank_postalcode.Text

        Frm_bank_update.CMBbank_user_name.Text = CMbank_user_name.Text

        Frm_bank_update.Txtbank_user_id.Text = Val(Txtbank_user_id.Text)

        Frm_bank_update.DTPbank_date.Value = DTPbank_date.Value

        Frm_bank_update.Cmbbank_status.Text = Cmbbank_status.Text

        Frm_bank_update.Txtbank_note.Text = Txtbank_note.Text

     

        Dim FrmUpdate As New Frm_bank_update

        FrmUpdate.ShowDialog()

       

    End Sub