Problema con consulta a bdd mysql

[-thor-]

Siempre que quiero mostrar el resultado de mi consulta sql,me arroja este error:

Código:

variable de tipo object o la variable de bloque With no esta establecida

Sorry por la pregunta,pero soy principiante en visual basic,como puedo solucionar el error?
gracias
uso mysql
visual basic 6.0

Este codigo lo declaro en la parte de general

Código PHP:

  Public Rs As ADODB.Recordset 
Public con As Connection 
Function conexion() 
Set con = New ADODB.Connection 
con.ConnectionString = "driver={MySQL ODBC 3.51 Driver};server=localhost;uid=root;pwd=;database=prueba;connection=" 
con.Open 
End Function  
   

Este boton lo quiero utilizar para mostrar los valores en los text

Código PHP:

  Private Sub Command1_Click() 
conectar = conexion() 
 
Rs.Open "select * from probando", con, adOpenStatic, adLockOptimistic 
          
    Text1.Text = Rs.Fields("codigo") 
    Text2.Text = Rs.Fields("nombre") 
End Sub  
   

esta linea me marca el compilador,cuando arroja el error

Código PHP:

  Rs.Open "select * from probando", con  
   

[emilio21]

no coloques conectar = conexion()

solo llama la funcion y ya.

[-thor-]

cuando ingreso los datos en mis textbox y luego hago click en el boton modificar,no me modifica nada y los datos en la base de datos quedan iguales,la aplicacion tampoco me arroja errores.

que problema puedo tener en la sentencia sql?
gracias

Código PHP:

  Private Sub modificar_Click()
Dim cod As String
Dim nombree As String
Dim edadd  As String
Dim direccionn As String

cod = Text3.Text
nombree = nombre.Text
edadd = edad.Text
direccionn = direccion.Text


SQL = "UPDATE probando set nombre='" & nombree & "'   &  ','  &  edad='" & edadd & "'&  ','  &  direccion='" & direccionn & "' where codigo='" & cod & "'"

con.Execute (SQL)
End Sub  
   

[-thor-]

que estare haciendo mal en esa sentencia de actualizacion?