Hola mira, yo tengo un ejemplo similar al tuyo
esta es mi clase conexión
Cita: 'Desarrollado por: ISC Alan Francisco Mex Uc
Imports System.Data.SqlClient
Imports System.Data.OleDb
Public Class Conexion
Public con As New OleDbConnection
'este método es para mostrar los datos en las consultas y para el form de login
Sub conexion()
con.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="fuente" "
con.Open()
End Sub
End Class
y esta es la clase donde hago la llamada a la clase conexión
Cita: 'Desarrollado por: ISC Alan Francisco Mex Uc
Public Class BuscaClientes
'aqui estoy creando una instancia de la clase conexión
Dim conec As New conexion.Conexion
Dim cliente As String
Private Sub BuscaClientes_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
conec.conexion()
Dim cliente As OleDb.OleDbCommand
Dim dc As OleDb.OleDbDataReader
cbxNombreCliente.Items.Clear()
cliente = New OleDb.OleDbCommand("Select NOMBRE from CLIENTES ", conec.con)
dc = cliente.ExecuteReader()
While dc.Read()
Me.cbxNombreCliente.Items.Add(dc(0))
End While
dc.Close()
conec.con.Close()
End Sub
End Class
Espero te sirva
saludos!!!