Getting tripped out here -- need some help

  Protected Function GetData() As System.Data.DataSet
        '--- Function returns a DataSet containing information
        Try
            '--- connection string
            Dim strConn As String = "Provider"  '--- connection works

            '--- create data object
            Dim objConn As New System.Data.OleDb.OleDbConnection(strConn)
            objConn.Open()

            '--- Create objects ready to Grab Data
            Dim objCmd As New System.Data.OleDb.OleDbCommand("Select * From Titles")
            Dim objDA As New System.Data.OleDb.OleDbDataAdapter()
            objDA.SelectCommand = objCmd

            '--- Fill the data set
            Dim objDS As New System.Data.DataSet()
            objDA.Fill(objDS)                                '--- this is tripping the circuits --
                                                                       'System.InvalidOperationException' occurred in
                                                                        System.Data.dll


            '--- clean up and return the Dataset
            objConn.Close()

            Dim strMsg As String

            strMsg = objDS.Tables.Count

            MsgBox(strMsg)




            Return objDS


        Catch
            '--- possible errors include Excel file already open and locked, et al
            Return Nothing
        End Try

    End Function