Private Sub InsertTransaccionTipo()
        Dim cmd As OleDb.OleDbCommand 'creo variable para comunicar BD
        'Me conecto a la base 
        Dim Connection As New OleDbConnection(Cadena)       
        'Establezco cual es la consulta a ejecutar 
        cmd = New OleDb.OleDbCommand("IsertTransaccionTipo", Connection)   ' Quiero mandar llamar el INSERT INTO formado en access
        'Avisamos que vamos a ejecutar la consulta SQL generada en Access 
        Connection.Open()       'abrimos la conexion
        cmd.ExecuteNonQuery()
        Connection.Close()
    End Sub