combobox显示值如何绑定实用值

显示值代码：
 'Dim a() As String = {"算头又算尾", "算头不算尾", "算尾不算头", "头尾都不算"}
        'Dim i As Integer
        'For i = 0 To 3
        '    CBchargeway.Items.Add(a(i))
        'Next
        'CBchargeway.Text = CBchargeway.Items(0)
"算头又算尾""算头不算尾", "算尾不算头", "头尾都不算"分别代表数据Title表里1，2，3,4
问题：怎么把"算头又算尾"和数据库1绑定！ --------------------编程问答--------------------

    Dim a() As String = {"算头又算尾", "算头不算尾", "算尾不算头", "头尾都不算"}



    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Me.ComboBox1.DataSource = a

        Me.ComboBox1.SelectedIndex = -1

    End Sub

--------------------编程问答--------------------

引用 1 楼 linjimu 的回复:

VB.NET code


    Dim a() As String = {"算头又算尾", "算头不算尾", "算尾不算头", "头尾都不算"}

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.……

这方法只能显示这几个汉字，不能绑定到数据库。我点保存时无法保存到数据库 --------------------编程问答-------------------- 你都没有说明你的需求。
你是不是读取一个数据表。然后数据表要绑定到combobox呢。
combobox一般是显示数据供用户选择的。你还想保存到数据库。
是想把选中的内容保存到数据库里面吧。
--
问是来回答问题的。不是让我帮你问问题的。

补充：.NET技术 ,  VB.NET