Problema ao deixar combobox selecionado

Olá galera, estou com um probleminha, tenho um form em meu projeto com vários campos combobox, este form serve tanto para inclusão como alteração de dados, quando vem um id uso como alteração de dados e os campos do mesmo ficam selecionados, porém, em um dos campos combobox ele não deixa selecionar e da o erro:

Operação não permitida quando o objeto esta aberto

Neste mesmo combobox os dados vem do banco de dados, vejam o código:

Me.conta_corrente.Items.Add("Banco(s):")

Try

Dim banco, codigo_agencia, conta_corrente, id_conta As String

 RS.Open("SELECT id_conta, banco, codigo_Agencia, conta_corrente FROM tb_contas_correntes", Conexao, 1, 2) 'Abre a conexão com o login digitado no campo "Login" do formulário, para verificar se o login já existe

 If RS.Fields("banco").Value <> "" Then 'Caso o login exista na base de dados

 While Not RS.EOF

 id_conta = RS.Fields("id_conta").Value
 banco = RS.Fields("banco").Value
 codigo_agencia = RS.Fields("codigo_agencia").Value
 conta_corrente = RS.Fields("conta_corrente").Value
 Me.conta_corrente.Items.Add(id_conta & " - " & banco)

 RS.MoveNext()
 End While

 RS.Close()

 End If

 Catch ex As Exception
 MsgBox("Erro encontrado1: " & Err.Description)
 End Try

 Me.conta_corrente.Items.Add("Caixa(s):")

 Try

 Dim ponto, codigo, id_ponto As String

 RS.Open("SELECT id_ponto, ponto, codigo FROM tb_pontos", Conexao, 1, 2)

 If RS.Fields("ponto").Value <> "" Then
 While Not RS.EOF

 id_ponto = RS.Fields("id_ponto").Value
 ponto = RS.Fields("ponto").Value
 codigo = RS.Fields("codigo").Value
 Me.conta_corrente.Items.Add(id_ponto & " - " & codigo & " - " & ponto)
 'Me.conta_corrente.Items.Add(id_ponto)

 RS.MoveNext()
 End While

 RS.Close()

 End If

 Catch ex As Exception
 MsgBox("Erro encontrado4: " & Err.Description)
 End Try

E o codigo que pego o item para deixar selecionado é:

Dim id_usar As String = RS8.Fields("id_conta").Value

Try

 RS2.Open("SELECT id_conta, banco, codigo_agencia, conta_corrente, data_cadastro FROM tb_contas_correntes where id_conta = " & Trim(id_usar) & " ", Conexao, 1, 2)
 If RS2.Fields("banco").Value <> "" Then

 Dim id_conta_banco, banco, codigo_Agencia, conta_corrente As String

 id_conta_banco = RS2.Fields("id_conta").Value
 banco = RS2.Fields("banco").Value
 codigo_Agencia = RS2.Fields("codigo_Agencia").Value
 conta_corrente = RS2.Fields("conta_corrente").Value

 Me.conta_corrente.Text = (id_conta_banco & " - " & banco)

 End If

 Catch ex As Exception
 MsgBox("Erro encontrado: " & Err.Description)
 End Try

 RS2.Close()

Alguém sabe me dizer o porque do erro ?

Atenciosamente,

Xavier