'abrir base de datos hconn.host = TextBoxRuta.Text hconn.Name = TextBoxRuta.Text hconn.Type = "Sqlite3" Try hconn.Open() If Error Then Message.Error("Se ha producido un error al intentar leer la base de datos") Return Endif