Bueno resolvendo tus dudas:
Usando ADO primero en proyecto->referencias
selecionas Microsoft ActiveX Data Objects 2.xx
despues declaras:
dim cn as new adodb.connection
dim rs as new adodb.recordset
en el load o en un modulo pones:
cn.open "Tu cadena de conexio a tu DB"
para guardar:
cn.execute("Insert into tutabla(tus campos) values(tus valores)")
borrar:
cn.execute("delete from tutabla where tucondicion")
actualizar:
cn.execute("update tutabla set tucampo=tuvalor where tu condicion")
Si quieres saber mas lee lo referente a SQL
si es en base a un text solo agregas por ejm.
cn.execute("update tutabla set tucampo='" & text1.text "' where tucampo=" & text2.text)
el primero es texto el segundo numerico.
Para validar si es numero
En el evento keypress solo funciona si haces matrices de botones lo cual te que hagas recomiendo:
Primero en que caja de texto estoy si el la primera
If Index = 0 Then
If KeyAscii < 48 Or KeyAscii > 57 Then 'Si es diferente de numero
If KeyAscii <> 8 And KeyAscii <> 46 Then 'Si es diferente de backspace o Tab
KeyAscii = 0 'Si no lo es no pone nada
Beep
End If
End If
End If
Saludos
