Base de datos

[Rony J.]

Puede ser algo asi:

Public Sub Insertar(CadenaInsert As String, myConnection As SqlConnection)
Dim myCommand As New SqlCommand(CadenaInsert, myConnection)
myCommand.Connection.Open()
myCommand.ExecuteNonQuery()
myConnection.Close()
End Sub 'CreateMySqlCommand

Lo llamas desde el click de un boton y le mandas algo asi:

Private Sub command1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles command1.Click

Dim Conecction As String = "Initial Catalog=Northwind;Data Source=localhost;Integrated Security=SSPI;"
Dim Sql as String = "INSERT INTO tabla (campo_nombre,campo_edad) VALUEs ('txtEdad.Text', 'txtnombre.Text')"

Insertar(Sql, Connection)()

End Sub