Ayuda con el dataset no me funciona

Question

Hola tengo un problema cuando intento cargar mis datos

• cree un nuevo dataset en el cual cree la una datatable1 y le agregue las columnas que necesitaba que son 8 y le coloque los nombre igual que en la base se datos 
• luego cree un nuevo Reporte y le coloque el nombre de Reporte.crt
• luego cree un form que lo llame visualizar, en el coloque un datagrid para mostrar los datos un botón que sirve para imprimir el el crystalview pero mo me funciona prueba la conexión y me dice que esta bien 
• el datagrid carga los datos almacenados en la tabla de actividaes
• este es mi codigo si me pueden decir donde me Equivoco o como solucionarlo:

Imports System.Data
Imports System.Data.SqlClient
Imports System.Data.OleDb
Imports System.Text


Public Class VisorReporte
    Dim sCadena As String = "Data Source=CHACON-PC\SQLEXPRESS;Initial Catalog= Sarahi;User Id=sa;Password=123"
    Dim datos As New DataSet
    Dim base As New SqlDataAdapter("Select * from tblActividades", sCadena)
    Dim com As String

    Private Sub Imprimir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Imprimir.Click
        Dim oCnn As New OleDbConnection 'SqlConnection  ' Objeto de conexion a la base de datos 

        Dim daDatos As New OleDbDataAdapter 'SqlDataAdapter ' Objeto Adaptador para leer datos de la Base de datos
        Dim cmdExec As New OleDbCommand 'SqlCommand ' objeto comando para ejecutar sentencias sql,e provado de las dos maneras(sql, oledb) pero no se cual de los 2 realmente me funcionaria
        Dim dtDatos As New DataTable ' datatable para recibir los datos de la base de datos
        Dim sbQuery As New StringBuilder ' StringBuilder para armar cadenas
        Try

            oCnn.ConnectionString = "Provider=sqloledb;Data Source=CHACON-PC\SQLEXPRESS;Initial Catalog= Sarahi;User Id=sa;Password=123;"
            'Provider=SQLOLEBDB;Server=CHACON-PC\SQLEXPRESS;Database=Sarahi;Uid=sa; Pwd=123;"
            'Data Source=CHACON-PC\SQLEXPRESS;Initial Catalog= Sarahi;User Id=sa;Password=123
            oCnn.Open()
            cmdExec = oCnn.CreateCommand
            cmdExec.Connection = oCnn

            sbQuery.Append("SELECT Descripcion  ")
            sbQuery.Append("      ,FechaInicio  ")
            sbQuery.Append("      ,FechaFinal  ")
            sbQuery.Append("      ,PorcentajeAvance  ")
            sbQuery.Append("      ,NombreUsuario  ")
            sbQuery.Append("      ,Observaciones  ")
            sbQuery.Append("      ,FechaInicio1  ")
            sbQuery.Append("      ,FechaFinal1  ")
            sbQuery.Append("            FROM tblActividades   ")
            cmdExec.CommandText = sbQuery.ToString

            daDatos = New OleDbDataAdapter(cmdExec) 'SqlDataAdapter
            daDatos.Fill(dtDatos)

            Dim CrReport As New CrystalDecisions.CrystalReports.Engine.ReportDocument
            Dim crReports As New CrystalDecisions.CrystalReports.Engine.ReportDocument
            ' Asigno el reporte 
            CrReport = New CrystalDecisions.CrystalReports.Engine.ReportDocument
            CrReport.Load(Application.StartupPath & "\Reporte.rpt")
            CrReport.SetDataSource(dtDatos)

            CrystalReportViewer1.ReportSource = CrReport

        Catch ex As Exception
            MessageBox.Show("excepcion: " & ex.Message, "Mostrando Reporte")
        End Try
    End Sub

    Private Sub VisorReporte_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        base.Fill(datos)
        DataGridView1.DataSource = datos.Tables(0)
    End Sub
End Class

Ayuda por favor 

siempre me aparece una pantalla que dice el informe no puede ser cargado