ถามเรื่อง VB.net + Crystal Report + Access Database ผ่านทาง Connection String

Imports CrystalDecisions.CrystalReports.Engine
Imports System.Data.OleDb

Public Class FRM010000
    Private Sub BtnReport_Click(sender As Object, e As EventArgs) Handles BtnReport.Click
        Dim objConn As New OleDbConnection
        Dim objCmd As New OleDbCommand
        Dim dtAdapter As New OleDbDataAdapter
        Dim ds As New DataSet
        Dim dt As DataTable
        Dim strConnString, strSQL As String
        strConnString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=D:\testproject\Kroopanya.mdb"
        strSQL = "SELECT emp_id,Emp_name FROM employee WHERE emp_id = '" & txtEmp_id.Text & "' "
        objConn.ConnectionString = strConnString
        objConn.Open()
        dtAdapter = New OleDbDataAdapter(strSQL, objConn)
        dtAdapter.Fill(ds, "myDataTable")
        dt = ds.Tables(0)
        objConn.Close()
        objConn = Nothing
        MsgBox(ds.Tables.Count)
        MsgBox(dt.Rows.Count)
      
        Dim rpt As New ReportDocument()
        Dim directory As String = My.Application.Info.DirectoryPath
        'rpt.Load(directory & "\myCrystalReport1.rpt")
        rpt.Load("D:\Cloud\Dropbox\VBProject\QSHOP\Reporter\Reporter\myCrystalReport1.rpt")
        rpt.SetDataSource(dt)
        Me.CrystalReportViewer1.ReportSource = rpt
        Me.CrystalReportViewer1.Refresh()
    End Sub
End Class

ReportDocument cryRpt = new ReportDocument();
TableLogOnInfos crtableLogoninfos = new TableLogOnInfos();
TableLogOnInfo crtableLogoninfo = new TableLogOnInfo();
ConnectionInfo crConnectionInfo = new ConnectionInfo();
Tables CrTables;

cryRpt.Load(MapPath("CrystalReport.rpt"));
crConnectionInfo.ServerName = "ICELand";
crConnectionInfo.DatabaseName = "MiniOPT";
crConnectionInfo.UserID = "sa";
crConnectionInfo.Password = "121212";

CrTables = cryRpt.Database.Tables;
foreach (CrystalDecisions.CrystalReports.Engine.Table CrTable in CrTables)
{
    crtableLogoninfo = CrTable.LogOnInfo;
    crtableLogoninfo.ConnectionInfo = crConnectionInfo;
    CrTable.ApplyLogOnInfo(crtableLogoninfo);
}

CrystalReportViewer1.ReportSource = cryRpt;
CrystalReportViewer1.RefreshReport();