Accees con crystal report

[mcofy]

Bueno he resuelto el problema, y era mas simple de lo que pensaba, lo unico que realice fue usar el mismo codigo que uso para el mysql, y lo adapte al una conexion con accees y funciona de maravilla. Les conparto el codigo:

Código vb:

Const DB_PATH = "\\direccion_ip\base.MDB"
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim con2 As New OleDbConnection
        con2.ConnectionString = "PROVIDER=MICROSOFT.JET.OLEDB.4.0; " & "DATA SOURCE=" & DB_PATH
        con2.Open()
        'MsgBox("open")
        Dim ds2 As New DataSet
        Dim da2 As New OleDbDataAdapter
        Dim dt2 As New DataTable
        Dim comando2 As New OleDbCommand
        Dim consulta As String
        consulta = "select * from tabla where folio= '" & Me.TextBox1.Text & "'"
        Dim reporte2 As New reporte_patologia
        dt2.Clear()
        comando2.Connection = con2
        comando2.CommandText = consulta
        da2 = New OleDbDataAdapter(comando2)
        da2.Fill(dt2)
        reporte2.SetDataSource(dt2)
        reporte2.Refresh()
        Me.CrystalReportViewer1.ReportSource = reporte2
        Me.CrystalReportViewer1.Refresh()
        con2.Close()
        con2.Dispose()
    End Sub
 

Bueno saludos y gracias!