CrystalReport in Visual Basic

I have a visual basic.net (2008) that will run Crystal Reports against a sql database.  This works fine.  I can not get Visual baisc to run a crystal report against a Visual FoxPro database / table.  There is only one table linked to the report.  The crystal report runs fine in the Crystal Report developer.  All connections are made and the information is updated and correct.  If I do not use the "refresh" in the VB code, the viewer will pull the last report run and display it.  If the "refersh" is added (see the attached code), it pops up and ask for log in information.  Everything that I have tried gives me the "Log On Failed" box.  I am trying to supply the correct connection information in the code, but nothing works.  I think foxpro does not require a uer id or passwork (?).  Again the Crystal Report runs fine in the developer.  My code is below.  Thanks for any help


Imports CrystalDecisions.CrystalReports.Engine
Imports CrystalDecisions.Shared

Public Class Form1
    ' Added reference to CrystalDecisions.CrystalReports.Engine
    ' Added reference to CrystalDecisions.ReportSource
    ' Added reference to CrystalDecisions.Shared

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim icon As String
        Dim strreportname As String = "g:\Ft9 reports - 2008\employee_list_test.rpt"
        Dim ii As CrystalDecisions.Shared.TableLogOnInfo
        Dim ci As CrystalDecisions.Shared.ConnectionInfo
        Dim cr As New CrystalDecisions.CrystalReports.Engine.ReportDocument


        cr.Load(strreportname)
        cr.Refresh()
        CrystalReportViewer1.ReportSource = cr
        CrystalReportViewer1.Visible = True

        ii = cr.Database.Tables(0).LogOnInfo
        ci = ii.ConnectionInfo
        icon = "Driver={Microsoft Visual FoxPro Driver};SourceType=DBC;SourceDB=f:\gashouse\maint.dbc;Exclusive=No;"
        icon = icon & "NULL=NO;Collate=Machine;BACKGROUNDFETCH=NO;DELETED=NO"
        ci.ServerName = icon
        ci.DatabaseName = "maint"
        ci.UserID = ""
        ci.Password = ""
        ci.IntegratedSecurity = False

        cr.Database.Tables(0).ApplyLogOnInfo(ii)

    End Sub