Ayuda con Informe

Por favor si alguien me puede ayudar con el siguiente error, pongo los
pasos
de lo que estoy haciendo:
Deseo generar un informe con Crystal desde VB.NET utlizando un dataset

1. Agrego el dataset y le inserto la tabla Access
2. escribo todo el codigo necesario para poblar el dataset y enlazar el
reporte con el reportviewer
3. todo lo hace bien pero me sale una ventana pindiendome usuario y login
y
ahí se para la aplicación.

Adjunto el codigo, ojala que alguien me pueda guiar porque es muy
importante
para mi solucionar este problema.

Dim ACCESS_CONNECTION_STRING As String =
"Provider=Microsoft.Jet.OleDB.4.0;
Data Source=c:\mdsys\datos\datos.mdb"

Dim ConnectionString As String = ACCESS_CONNECTION_STRING

Dim CnOledb As New OleDbConnection(ConnectionString)

Dim cmOledb As New OleDbCommand("SELECT * FROM paciente order by nombre",
CnOledb)

Dim DAPacientes As New OleDbDataAdapter(cmOledb)

Dim DSpacientes As New Dataset1

CnOledb.Open()

cmOledb.ExecuteNonQuery()

DAPacientes.Fill(DSpacientes)

Dim frm As New VistaReporte01

frm.Text = CmbReportes.SelectedItem

frm.VisorCR01.ReportSource = "\mdsys\WINDR\RptLista01.rpt"

frm.ShowDialog(Me) ' <= Aqui es donde pide el login y no hace
nada.

frm.Dispose()