Visual Basic .net & Crystal Report 9

[Princesa27]

Saludos tengo una pregunta espero me puedan ayudar y es que al ejecutar mi reporte en crystal me despliega el siguiente error:
Logon failed.
Details: ADO Error Code: 0x80040e4d
Source: Microsoft OLE DB Provider for SQL Server
Descripcion: Login failed for user 'administrator'.
SQL State: 42000
Native Error: 18456

este error se sucita al momento que quiero que haga un refresh del reporte, estas son las lineas en vb .net

abredb()
CrystalApplication = CreateObject("CrystalRuntime.Application.9")
CrystalReport = CrystalApplication.OpenReport(c_PathReporte)
' Asigna como origen de datos del reporte el record set resultante
CrystalReport.Database.SetDataSource(rsSP)
'Esta propiedad es para que se haga un refresh del reporte correcto
CrystalReport.DiscardSavedData()
AxCRViewer.ReportSource = CrystalReport
AxCRViewer.ViewReport()

por lo que pude entender buscando alguna solución es que el problema radica desde mi validación de datos fuente osea al momento de hacer mi conexión la realizo desde la carpeta History y creo una conexión OLE DB(ADO), y lo que menciona es que debo realizarla desde la carpeta Create New Connection escoger la opción OBDC(RDO) y darle la información a la connection string, mas sin embargo haciendo estos pasos me marca el siguiente mensaje Not supported.

me gustaría pudieran orientarme.

gracias.

[Princesa27]

Hi, encontré alguna solución a mi problema, lo que hice primero se crea la conexión OLE DB(ADO), ya que ADO.net proporciona origenes de datos como Microsoft SQL Server y XML, asi como origenes de datos expuestos mediante OLE DB y ODBC. mi base de datos está en SQL lo que hice fué agregar un stored procedure que hace una seleccion de datos de mi tabla, si el recordset está vacio muestra un mensaje, si existen datos configuro el reporte y muestra los datos.
aquí les dejo las lineas que agregué, espero les pueda servir.

Private Sub Grabar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Grabar.Click
Dim s_SQL As String


Try

s_SQL = "sp_Prueba6 "
abredb()
'corre el SP
rsSP = DB_cn.Execute(s_SQL)


Grabar.Enabled = True
'Si el recordset está vacío muestra un meensaje
If rsSP.EOF Then
MessageBox.Show("No existen datos en esa fecha", "Mensaje del Sistema", MessageBoxButtons.OK, MessageBoxIcon.Information)
'Grabar.Enabled = False
Else
'Grabar.Enabled = True
'Configuración para abrir el reporte
CrystalApplication = CreateObject("CrystalRuntime.Application.9")
CrystalReport = CrystalApplication.OpenReport(c_PathReporte)
'Asigna como origen de datos del reporte el record set resultante
CrystalReport.Database.SetDataSource(rsSP)
'Esta propiedad es para que se haga un refresh del reporte correcto
CrystalReport.DiscardSavedData()
'El crystal viewer de la forma toma los datos de configuración de crystalreport
AxCRViewer.ReportSource = CrystalReport
''Zoom del crystal viewer
'AxCRViewer.Zoom(100)
'Se muestra el reporte en pantalla
AxCRViewer.ViewReport()
'Actualizamos el Reporte
'AxCRViewer.Update()


End If

Catch ex As Exception
MessageBox.Show(ex.Message.ToString)
End Try

End Sub