CLICK DUPLO NO MSFLEXGRID

RICKSOUSA 27/05/2012 10:16:56
#402909

quando eu clico no msflexgrid para preencher os campos aparece o seguinte erro:

segue na imagem acima.

o codigo esta assim:


[txt-color=#0000f0]Private Sub MSFlexGrid1_DblClick()

Conecta True
Dim RS As Recordset
Dim sSQL As String
[ô] aqui eu capturo o CODIGO da linha em que dei um Duplo Click
With MSFlexGrid1
If .Rows = 1 Then Exit Sub
sSQL = [Ô]SELECT *FROM agenda WHERE codigo = [Ô] & .TextMatrix(.RowSel, 0) [ô] .TextMatrix(.RowSel, 0) é a linha selecionada
[ô] na coluna zero
End With
[/txt-color][txt-color=#e80000]Set RS = Conexao.Execute(sSQL)[/txt-color] [ô]o erro esta nessa linha![/txt-color]
[txt-color=#0000f0]If Not (RS.EOF And RS.BOF) Then
codigo.Caption = RS!codigo
nome.Text = RS!nome
endereco.Text = RS!endereco
numero.Text = RS!numero
bairro.Text = RS!bairro
cidade.Text = RS!cidade
uf.Text = RS!uf
telefone.Text = RS!telefone
celular.Text = RS!celular
End If
Conecta False

End Sub[/txt-color]