'//ejecutar consulta [actualizar|eliminar|insertar]
    Public Function fntEjecutar_Consulta(ByVal strSQL As String) As String
        Dim strRet As String = ""

        Try
            Dim conConexion As New SqlConnection("cadena_de_conexion")
            Dim coSQL As New SqlCommand(strSQL.Trim, conConexion)

            conConexion.Open()
            coSQL.ExecuteNonQuery()
            strRet = "<ok>"
            If conConexion.State <> ConnectionState.Closed Then conConexion.Close()
        Catch ex As Exception
            strRet = ex.Message.ToString
        End Try

        Return strRet
    End Function

Dim strRet As String = fntEjecutar_Consulta("DELETE FROM tabla WHERE campo='hola mundo'")

Dim strRet As String = fntEjecutar_Consulta("INSERT INTO tabla(campo) VALUES('hola mundo')")

Dim strRet As String = fntEjecutar_Consulta("UPDATE tabla SET campo='adios mundo' WHERE campo='hola mundo'")

Dim strRet As String = fntEjecutar_Consulta("UPDATE tabla SET campo='adios mundo' WHERE campo='hola mundo'")

If strRet = "<ok>" Then
    '//mensaje para indicar al usuario que el campo se actualizo
Else
    '//mensaje para indicar al usuario que se produjo un error, por ejemplo:
    MsgBox "Ocurrio un error:" & vbNewLine & strRet
End If