Visual Basic.NET - Dos formularios con la misma base de datos vb.Net

' ... ... ...

        Dim UnaConnectionString As String = "Provider=Microsoft.JET.OLEDB.4.0;Data Source=" & RutaYNombreDeMiDB & ";"

        Dim MiConexion1 As New OleDbConnection

        Dim MiConexion2 As New OleDbConnection

        Dim MiComando1 As New OleDbCommand

        Dim MiComando2 As New OleDbCommand

        MiConexion1.ConnectionString = UnaConnectionString

        MiConexion1.Open()

        MiConexion2.ConnectionString = UnaConnectionString

        MiConexion2.Open()

        MiComando1 = MiConexion1.CreateCommand()

        MiComando1.CommandType = CommandType.Text

        MiComando1.CommandText = "SELECT * FROM TProduit"

        MiComando2 = MiConexion2.CreateCommand()

        MiComando2.CommandType = CommandType.Text

        MiComando2.CommandText = "SELECT * FROM TLotesInspeccionados"

        Dim UnosDatos1 As OleDbDataReader   ' Tambien puedes utilizar OleDbDataAdapter y el metodo Fill.

        Dim UnosDatos2 As OleDbDataReader

        UnosDatos1 = MiComando1.ExecuteReader()

        UnosDatos2 = MiComando2.ExecuteReader()

        MessageBox.Show(UnosDatos1.FieldCount)

        MessageBox.Show(UnosDatos2.FieldCount)

' ... ... ...