Conexion a MySQL y SQLite

Visual Studio por defecto presenta soporte para manipular las bases de datos de SQL Server y Access ya que provienen de la misma compañia, esto se aprecia ya que no hay necesidad de instalar las librerias que contienen los namespaces para estos DBMS (SQLClient y OleDb respectivamente).

Para hacer uso de las bases de datos en MySql y SQLite es necesario descargar e instalar los drivers para dicha conexion, estas son dos librerias que como dije anteriormente contienen los espacios de nombres con las clases para conectarse a su respectiva base de datos.

El conector para MySQL se puede encontrar aqui:
http://dev.mysql.com/downloads/connector/net/

El conector para SQLite se puede encontrar aqui:
http://system.data.sqlite.org/index.html/doc/trunk/www/downloads.wiki

(VB .Net) Modulo Conexion

Imports System.Data.SqlClient
Imports System.Data.OleDb
Imports MySql.Data.MySqlClient
Module Conexion
    Friend dbMySQLConn As MySqlConnection, dbSQLConn As SqlConnection
    Friend MySQLStrConn As String, SQLStrConn As String
    Public Sub ConectarSQL(Optional ByVal StrConn As String = "")
        If StrConn = "" Then
            StrConn = "Server = .\SQLEXPRESS; Integrated Security = True"
        End If
        dbSQLConn = New SqlConnection(StrConn)
        Try
            dbSQLConn.Open()
        Catch ex As Exception
            MessageBox.Show("Error al conectar: " & vbCrLf & ex.Message)
        End Try
    End Sub

    Public Sub ConectarMySQL(Optional ByVal StrConn As String = "")
        If StrConn = "" Then
            StrConn = "Server = localhost; User = root; port = 3306"
        End If
        dbMySQLConn = New MySqlConnection(StrConn)
        Try
            dbMySQLConn.Open()
        Catch ex As Exception
            MessageBox.Show("Error al conectar: " & vbCrLf & ex.Message)
        End Try
    End Sub

    Public Function ExecuteReaderSQL(ByVal query As String) As SqlDataReader
        Dim p As SqlCommand
        p = New SqlCommand(query)
        p.Connection = dbSQLConn
        Dim read As SqlDataReader = p.ExecuteReader()
        Return read
    End Function

    Public Function ExecuteReaderMySQL(ByVal query As String) As MySqlDataReader
        Dim p As MySqlCommand
        p = New MySqlCommand(query)
        p.Connection = dbMySQLConn
        Dim read As MySqlDataReader = p.ExecuteReader()
        Return read
    End Function

    Public Sub DesconectarSQL()
        dbSQLConn.Close()
    End Sub

    Public Sub DesconectarMySQL()
        dbMySQLConn.Close()
    End Sub
End Module