ขอคำชี้แนะ เรื่อง Combobox เกี่ยวกับ Text และ Value ครับ VB.net

ComboBox1.DataSource = DataSource
ComboBox1.DisplayMember = "Text"
ComboBox1.ValueMember = "Value"

'Form_load
   ComboBox1.Items.Add("Bangkok")
   ComboBox1.Items.Add("Rayong")
   'หรือ ดึงมาจากฐานข้อมูล
   Call FillComboBox(ComboBox1, "SELECT  ProvincePK,ProvinceName From tbl_Province")
'btn_Save
   'เลือกเอาจะเก็บรหัส .SelectedValue หรือเก็บข้อความ .SelectedText
   Insert into tablename values ("& ComboBox1.SelectedValue &")


Private Sub FillComboBox(ByVal CBO As ComboBox, ByVal sSQL As String)
        Dim DA As New OleDbDataAdapter(sSQL, CN)
        DS = New DataSet
        DA.Fill(DS, "tmpTable")
        CBO.DisplayMember = DS.Tables(0).Columns(1).ToString
        CBO.ValueMember = DS.Tables(0).Columns(0).ToString
        CBO.DataSource = DS.Tables(0)
 End Sub

'เขียน ฟังชั่นไว้ที่ โมดูล

    Public Function GettitlenameID(ByVal name As String) As Integer
        sql = "SELECT titlename_id FROM TitleName " & _
              "WHERE title_name = @name"
        cmd = New SqlCommand(sql, cnn)
        cmd.Parameters.AddWithValue("name", name)
        Return cmd.ExecuteScalar()
    End Function





'ส่วนนี่คือ เมื่อเราคลิกเลือก ที่ combobox ให้ ไปเรียกใช้ฟังชั่นที่ โมดูล 
  Private Sub cbb_Customer_titlename_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cbb_Customer_titlename.SelectedIndexChanged
        Dim titleID As Integer = GettitlenameID(cbb_Customer_titlename.SelectedItem)
     
    End Sub