ERRO NO LOSTFOCUS

KAIBOLL 28/01/2011 13:03:49
#363693

Boa tarde, estou fazendo um sistema que possui uma Banco de CEP, coloquei no evento LostFocus para procurar o cep, tá funcionando normal, o problema é que se estiver com o foco na caixa de texto txtCep e eu clicar em outra janela na barra de tarefa que não seja a do sistema aparece este erro:

[ô]Erro
[Ô]Not allowed to change the [ô]ConnectionString[ô] property. The connection[ô]s current state is open[Ô]

[ô]Código
Private Sub txtCep_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtCep.LostFocus


Dim sCep As String = txtCep.Text

If sCep.Length = 9 Then
sCep = sCep.Substring(0, 5) & sCep.Substring(6, 3)
Else Then
Exit Sub
End If

AbrirConexaoAX()
comandoAX.CommandText = [Ô]select * from tblCep where Cep=[ô][Ô] & sCep & [Ô][ô][Ô]
Dim lerdadosAX As OleDb.OleDbDataReader = comandoAX.ExecuteReader()
lerdadosAX.Read()
Try
txtEndereco.Text = lerdadosAX.Item([Ô]Endereco[Ô])
txtBairro.Text = lerdadosAX.Item([Ô]Bairro[Ô])
txtCidade.Text = lerdadosAX.Item([Ô]Cidade[Ô])
cboUF.Text = lerdadosAX.Item([Ô]UF[Ô])
txtNumero.Focus()
Catch ex As Exception
MessageBox.Show(ex.ToString)
MessageBox.Show([Ô]Cep não encontrado![Ô], [Ô]Atenção[Ô], MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
End Try
lerdadosAX.Close()
conexaoAX.Close()

End Sub