Problemas con conexion oledb y windows7

[Gustavo1973]

Tengo la siguiente clase:

Código vb:

Public Class Conexion
        Public Function DBConectar() As OleDbConnection
            Dim Ini As CIniClass
            Ini = New CIniClass
            Ini.Archivo = System.AppDomain.CurrentDomain.BaseDirectory() & "configuracion.ini"
            Dim base As String
            base = Ini.LeeIni("BaseDatos", "Base")
            Dim connetionString As String
            Dim cnn As OleDbConnection
            connetionString = "Provider=Microsoft.ACE.OLEDB.12.0 ; Data Source=" & base 
            MsgBox(connetionString)
            cnn = New OleDbConnection(connetionString)
            DBConectar = cnn
        End Function
        Public Function consulta(ByVal qbusca As String, ByVal con As OleDbConnection) As System.Data.DataSet
            Dim oledbAdapter As New OleDbDataAdapter
            Dim ds As New DataSet
            oledbAdapter.SelectCommand = New OleDbCommand(qbusca, con)
            oledbAdapter.Fill(ds)
            oledbAdapter.Dispose()
            Return ds
        End Function
    End Class
 

En windows xp funciona bien, pero en windows 7 no. Alguien me puede indicar cual es el motivo?
asi es como la utilizo:

Código vb:

con = New Conexion
        cnn = con.DBConectar
        cnn.Open()
        ds = con.consulta("SELECT fecha, senia, cantidad,descripcion, precio, total FROM ventas WHERE nfactura = " & id, cnn)
        cnn.Close()
 

desde ya muchas gracias!!!