在vb.net中选择两列进行自动完成

我在文本框中为自动完成创建了一个代码 我的代码是

 Try
        Dim adapter As New OleDb.OleDbDataAdapter
        con = New System.Data.OleDb.OleDbConnection(connectionString)
        con.Open()
        Dim dt As New DataTable
        Dim ds As New DataSet
        sqlstr = "select customerid,cname from customer "
        ds.Tables.Add(dt)
        adapter.SelectCommand = New OleDb.OleDbCommand(sqlstr, con)
        adapter.Fill(dt)
        Dim r As DataRow
        txtcname.AutoCompleteCustomSource.Clear()
        For Each r In dt.Rows
            txtcname.AutoCompleteCustomSource.Add(r.Item(1).ToString)
        Next
        con.Close()
    Catch ex As Exception
        MsgBox("error found")
    End Try

现在我想通过autocomplete我可以选择id的所选列，以便我可以在下一个代码中使用该id来获取客户的信息

目前我正在使用这个

Dim adapter As New OleDb.OleDbDataAdapter
        con = New System.Data.OleDb.OleDbConnection(connectionString)
        con.Open()
        Dim dt As New DataTable
        Dim ds As New DataSet
        sqlstr = "select address1,mobileno from customer where cname='" & txtcname.Text & "' "
        ds.Tables.Add(dt)
        adapter.SelectCommand = New OleDb.OleDbCommand(sqlstr, con)
        adapter.Fill(dt)
        lbladdr.Text = dt.Rows(0).Item(0)
        lblmono.Text = dt.Rows(0).Item(1).ToString
        con.Close()

工作正常，但我在客户表中有一个主键id，因此如何通过客户id搜索信息