Error en conección a Access (VB8)

[Frehley]

Bueno, estoy migrando de VB6 A VB8 y me encontré con el primer obstáculo.
Tengo que conectarme a una base de datos en la que hay 4 tablas, cada conección se genera cuando hago click en las pestañas de un TabControl.

Les paso el código

MODULO:

Imports System
Imports System.Data.OleDb

Module module1
Public conn As OleDbConnection

Public Function Conectar() As Boolean

Conectar = True
' enlazando coneccion a la base de datos
conn = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & _
Application.StartupPath & "\database.mdb")

End Function
Public Sub Desconectar()
On Error Resume Next
conn.Close()
conn = Nothing
End Sub

Public Sub conectarventas()
Dim orden As OleDbDataAdapter
Dim tabla As DataSet
' respetar el espacion en blanco en DATA SOURCE
' cargando el adapter con la instruccion sql
orden = New OleDbDataAdapter("select * from ventas", conn)

' cargando el dataset
tabla = New DataSet()
orden.Fill(tabla, "ventas")

' cargando el datagridview
Form1.DataGridView4.DataSource = tabla
Form1.DataGridView4.DataMember = "ventas"

Desconectar()
End Sub

Public Sub conectararticulos()
Dim orden As OleDbDataAdapter
Dim tabla As DataSet
' respetar el espacion en blanco en DATA SOURCE
' cargando el adapter con la instruccion sql
orden = New OleDbDataAdapter("select * from articulos", conn)

' cargando el dataset
tabla = New DataSet()
orden.Fill(tabla, "articulos")

' cargando el datagridview
Form1.DataGridView3.DataSource = tabla
Form1.DataGridView3.DataMember = "articulos"
Desconectar()
End Sub

Public Sub conectarreservaciones()
Dim orden As OleDbDataAdapter
Dim tabla As DataSet
' respetar el espacion en blanco en DATA SOURCE
' cargando el adapter con la instruccion sql
orden = New OleDbDataAdapter("select * from reservaciones", conn)

' cargando el dataset
tabla = New DataSet()
orden.Fill(tabla, "reservaciones")

' cargando el datagridview
Form1.DataGridView2.DataSource = tabla
Form1.DataGridView2.DataMember = "reservaciones"
Desconectar()
End Sub

Public Sub conectarproveedores()
Dim orden As OleDbDataAdapter
Dim tabla As DataSet
' respetar el espacion en blanco en DATA SOURCE
' cargando el adapter con la instruccion sql
orden = New OleDbDataAdapter("select * from proveedores", conn)

' cargando el dataset
tabla = New DataSet()
orden.Fill(tabla, "proveedores")

' cargando el datagridview
Form1.DataGridView5.DataSource = tabla
Form1.DataGridView5.DataMember = "proveedores"
Desconectar()
End Sub
End Module

EVENTO CLICK DEL TABCONTROL

Imports System.Data.SqlClient
Imports System.Drawing.Drawing2D
Imports System.Data.OleDb
Imports ADODB



Public Class Form1


Private Sub TabControl1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles TabControl1.Click

If Not Conectar() Then
MsgBox("error al conectar")
Exit Sub
End If

Select Case TabControl1.TabIndex
Case 0
conectararticulos()
Case 1
conectarreservaciones()
Case 2
conectarventas()
Case 3
conectarproveedores()
End Select
End Sub
End Class

Lo raro de esto es que la única tabla a la que puedo conectarme perfectamente es a ventas >_<

Espero que me puedan dar una mano y ya que estamos... como declaro una variable GLOBAL o la equivalente para VB8?

Muchas gracias!
Salu2!