Foros del Web - Problema con consulta a bdd mysql

Foros del Web (http://www.forosdelweb.com/)

- Visual Basic clásico (http://www.forosdelweb.com/f69/)

- - Problema con consulta a bdd mysql (http://www.forosdelweb.com/f69/problema-con-consulta-bdd-mysql-488665/)

Problema con consulta a bdd mysql

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

Re: Problema con consulta a bdd mysql

no coloques conectar = conexion()

solo llama la funcion y ya.

Re: Problema con consulta a bdd mysql

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

Re: Problema con consulta a bdd mysql

que estare haciendo mal en esa sentencia de actualizacion?:'(