Visual Basic - modificar, eliminar, VB y Mysql

Saludos...
Espero me puedan ayudar.. tengo una tabla en MySql y quiero modificar e ingresar los registros desde visual basic.. he intentado hacerlo mediante unos ejemplos que salen en la web pero arrojan muchos errores!
aqui les mando el codigo de consulta que me funciona perfectamente... espero que me puedan dar un bosquejo de como hacerlo de verdad necesito de su ayuda!!!!!

Set conn = New ADODB.Connection
Set rs = New ADODB.Recordset
conn.CursorLocation = adUseClient
conn.ConnectionString = "DRIVER={MySQL ODBC 3.51 Driver}; SERVER=localhost; DATABASE=pozos; UID=root; PWD=1234; OPTION= & 1 + 2 + 8 + 32 + 2048 + 16384"
conn.Open
rs.Open "SELECT * FROM datos WHERE pozo LIKE '" + Text47.Text + "'", conn

If Text47.Text = "" Then
MsgBox "Campo Vacio Introduzca el codigo"
Text47.SetFocus

Else
Form3.Text1.Text = rs.Fields!pozo
Form3.Text2.Text = rs.Fields!estacion
Form3.Text3.Text = rs.Fields!ub
Form3.Text4.Text = rs.Fields!marca
Form3.Text5.Text = rs.Fields!modelo
Form3.Text6.Text = rs.Fields!fija
Form3.Text7.Text = rs.Fields!portatil
Form3.Text8.Text = rs.Fields!tipocorrea
Form3.Text9.Text = rs.Fields!protcorrea
Form3.Text10.Text = rs.Fields!stroker
Form3.Text11.Text = rs.Fields!celler
Form3.Text12.Text = rs.Fields!palanca
Form3.Text13.Text = rs.Fields!faja
Form3.Text14.Text = rs.Fields!bt
Form3.Text15.Text = rs.Fields!guaya
Form3.Text16.Text = rs.Fields!carrera
Form3.Text17.Text = rs.Fields!pintura
Form3.Text18.Text = rs.Fields!modelos
Form3.Text19.Text = rs.Fields!empaques
Form3.Text20.Text = rs.Fields!silla
Form3.Text21.Text = rs.Fields!cruceta
Form3.Text22.Text = rs.Fields!pines
Form3.Text23.Text = rs.Fields!marcame
Form3.Text24.Text = rs.Fields!serialme
Form3.Text25.Text = rs.Fields!potenciame
Form3.Text26.Text = rs.Fields!diametroeje
Form3.Text27.Text = rs.Fields!fijame
Form3.Text28.Text = rs.Fields!busingme
Form3.Text29.Text = rs.Fields!interno
Form3.Text30.Text = rs.Fields!externo
Form3.Text31.Text = rs.Fields!marcarc
Form3.Text32.Text = rs.Fields!serialrc
Form3.Text33.Text = rs.Fields!observacionrc
Form3.Text34.Text = rs.Fields!marcapc
Form3.Text35.Text = rs.Fields!serialpc
Form3.Text36.Text = rs.Fields!potenciapc
Form3.Text37.Text = rs.Fields!variadorpc
Form3.Text38.Text = rs.Fields!fechapc
Form3.Text39.Text = rs.Fields!observacionpc
Form3.Text47.Text = ""
Form3.Text47.SetFocus

end if
end sub

Pues para guarda debes usar INSERTR INTO:

sql$ = "Insert Into Ficha (Nencuesta,Provincia, Distrito,CP,Fecha,Encuestadora,Prenombres,Apellidos,Sexo,Departamentonac,Provnac,Distrinac,Cpnac,Fechanac,Tienedni,Tramitedni,Resultadotramdni,Rechazoporque,Vecezrechazo," _
& "LE,Nle, Dniahora,Tienepartida,Nacimientoasentado,Cpinscripcion,Distritoinscripcion,Provinciainscripcion,Departamentoinscripcion,Problemaspartida,Partidabautismo,Cpbautizo,Distritobautizo,Provinciabautizo,Departamentobautizo,Partidaahora) " _
& "Values (" & Val(Text1) & ",'" & Combo2 & "','" & Combo3 & "','" & Text2 & "','" & Format(DTPicker1, "yyyy-mm-dd") & "','" _
& Combo24 & "','" & Text3 & "','" & Text4 & "','" & Combo4 & "','" & Combo5 & "','" & Combo6 & "','" & Combo7 & "','" & Text5 & "','" _
& Format(DTPicker2, "yyyy-mm-dd") & "','" & Combo8 & "','" & Combo9 & "','" & Combo10 & "','" & Text6 & "'," & Val(Text7) & ",'" & Combo11 & "','" & Text10 & "','" & Combo12 & "','" _
& Combo13 & "','" & Combo14 & "','" & Text8 & "','" & Combo17 & "','" & Combo16 & "','" & Combo15 & "','" & Combo18 & "','" & Combo19 & "','" & Text9 & "','" & Combo22 & "','" & Combo21 & "','" & Combo20 & "','" & Combo23 & "')"

En donde la primera parte de la cadena son los campos d etu tabla MySql, y la segunda, los objetos correspondientes a guardar en cada campo. Se que es algo laro, pero, es el unico ejemplo que tenia a la mano.

Para elimnar, por ejemplo un registro donde un campo "Actividad" es igual al Text1:

sql$ = "Delete From Tbltmpfin Where Actividad='" & Text1 & "'"

Para modificar, pues, un Update:

Sql$ = "update TblProductos set TblProductos.stockproducto=" & lngnuevostock& & " where TblProductos.Codigoproducto='" & strcampocodigo$ & "'"

Abraham

Hola,
Intente hacer lo que me mandastes pero me sale el siguiente error.
Error de Compilación variable no definida, este error me lo arroja en la sentecia
SQL $

no se si es que me falta algo.. alguna referencia o libreria!!
Espero me puedan ayudar!

Hola, ya arrgle wel error simplemente me faltaba colocar
Dim SQL as String
ahora tengo otro problema... que no me quiere guardar en la base de datos,, es decir el programa corre pero no guarda en la BD..

ESTE ES EL CODIGO QUE TENGO

Dim conn As New ADODB.Connection
Dim SQL As String
Set rs = New ADODB.Recordset
conn.CursorLocation = adUseServer
conn.CursorLocation = adUseClient
conn.ConnectionString = "DRIVER={MySQL ODBC 3.51 Driver}; SERVER=localhost; DATABASE= pozos; UID=root; PWD=1234; OPTION= & 1 + 2 + 8 + 32 + 2048 + 16384"

'conn.Open

'rs.Open
SQL$ = "Insert Into datos (pozo,estacion,ub,marca,modelo,fija,portatil,tipocorrea,protcorrea,stroker,celler,palanca,faja,bt,guaya,carrera,pintura,modelos,empaques,silla,cruceta,pines,marcame,serialme,potenciame,diametroeje,fijame,busingme,interno,externo,marcarc,serialrc,observacionrc,marcapc,serialpc,potenciapc,variadorpc,fechapc,observacionpc" _
& "VALUES (" & Text1.Text & ",'" & Text2.Text & "','" & Text3.Text & "','" & Text4.Text & "','" & Text5.Text & "','" & Text6.Text & "','" & Text7.Text & "','" & Text8.Text & "','" & Text9.Text & "','" & Text10.Text & "','" & Text11.Text & "','" & Text12.Text & "','" & Text13.Text & "','" & Text14.Text & "','" & Text15.Text & "','" & Text16.Text & "','" & Text17.Text & "','" & Text18.Text & "','" & Text19.Text & "','" & Text20.Text & "','" & Text21.Text & "','" & Text22.Text & "','" & Text23.Text & "','" & Text24.Text & "','" & Text25.Text & "','" & Text26.Text & "','" & Text27.Text & "','" & Text28.Text & "','" & Text29.Text & "','" & Text30.Text & "','" & Text31.Text & "','" & Text32.Text & "','" & Text33.Text & "','" & Text34.Text & "','" & Text35.Text & "','" & Text36.Text & "','" & Text37.Text & "','" & Text38.Text & "','" & Text39.Text & "')"
'conn

MsgBox "Registro añadido a la Base de Datos", vbOKOnly + vbInformation, "Informacion"

Dim SQL as String

entonces no uses SQL$, sino SQL

Abraham

SI UTILIZO SQL$ O SQL
NO ME DA ERROR EL PROBLEMA ES QUE NO ME QUIERE GUARDAR EN LA BASE DE DATOS!!!
YA PROBÉ con sql e igual no me guarda!

Ahora que veo bien, en ningun momento has guardado los datos!!!!!!!!!!!!!!!!!!!!

Despues de darle valor a tu cadena sql, pues, obivamente debias incluirla en la base de datos:

With rst
.CursorLocation = adUseClient
.CursorType = adOpenKeyset
.LockType = adLockOptimistic
.Open sql$, cnn, , , adCmdText
End With

en serio que debes leer un poco mas, no lo tomes a mal. La cuestion no solo es copiar/pegar, sino., lo mas importante es entender cada paso e instruccion

Abraham

OK.,
Mi problema no es que no leo... simplemente que cuando comienzo a hacer algo por una parte que supuestamente estoy tratando de entender busco ayuda y ¡me dan otra manera de hacerlo!, ¡eso me enreda un poco! tengo que reconocer que no soy nada buena con la programación además de que en la Web te explican muy poco lo que en realidad estoy buscando.
En serio no lo tomé mal... me gusta que me corrijan, eso es bueno, ¡te lo agradezco!
De verdad muchas gracias, Disculpa la molestia.
Y ¡que tengas un excelente Día!