关于VB下拉框text和value值填充有关问题

关于VB下拉框text和value值填充问题
  sqltxt = "select CardID，CardName from T_CreditCard"
        'rs.Open(sqltxt)
        Dim sqladep As New SqlDataAdapter(New SqlCommand(sqltxt, cn))
        sqladep.Fill(rs)

        If rs.Rows.Count > 0 Then
            ComBank.Items.Add("")

            For i = 0 To rs.Rows.Count - 1
                ComBank.Items.Add(rs.Rows(i).Item("CardName").ToString())
            Next
        Else

            ShowMessage(Page, Me.GetLangStrByTextEx("没有检索到银行卡号!"))

            Exit Sub
        End If
上面是我做的代码，关于从数据库查询出2个字段值，然后填入到下拉框内，下拉框的text值写Name，value值写ID 改怎么去写？