Cómo implementar la adición, eliminación, modificación y consulta de datos en la base de datos SQL en una declaración VB

private sub command_click()

Dim mycon As ADODB.Connection 'Define la conexión al objeto de la base de datos

'Si su base de datos es Access, utilice el siguiente comando para abrir la base de datos

'************************ ******** *******************

mycon.ConnectionString = "provider= microsoft.jet.oledb.4.0;fuente de datos =" & App.Path & " / Escriba el nombre de la base de datos aquí.mdb"

''********************* ***** ******** **********

'Si su base de datos es SQL, utilice el siguiente método para abrir la base de datos

'mycon .ConnectionString = "Provider=SQLOLEDB.1; Seguridad integrada=SSPI.Persist Security Info=true; Directorio inicial=nombre de la base de datos; Fuente de datos=.\sqlexpress"

'******** **************** **********

mycon.Open 'Abrir base de datos

Atenuar primero como nuevo ADODB."select * from information"

rst .Open Trim(SQL), mycon, adOpenKeyset, adLockOptimistic 'Abrir el conjunto de registros

rst.addnew 'Agregar un registro vacío

rst.fields(0)=text1,text

rst.fields(1)=text2,text

rst.fields(2)=text3,text

rst.fields(3)=text4,text

rst.fields(4)=text5,text

rst.update 'Actualizar base de datos

msgbox "Ingreso de datos exitoso"

De esta manera ¡Eso es! Sin embargo, descubrí que su interfaz parece ser VB.NET. Si es VB.NET, envíeme un correo electrónico y se lo enviaré directamente.