The 'Microsoft.ACE.OLEDB.12.0' provider is not registered on the local machine

See more:

VB

i am having this error The 'Microsoft.ACE.OLEDB.12.0' provider is not registered on the local machine on windows application
while the same code works in web application, i have already installed the required driver

i am not able to bind the data

this is my code

Private Function BindData() As Boolean
        Try
            Dim ObjOledbConnection As System.Data.OleDb.OleDbConnection
            Dim ObjOledbCommand As System.Data.OleDb.OleDbDataAdapter
            Dim ObjOledbDataset As New DataSet()
            Dim ObjDsTemp As New DataSet
            Dim strfilename As String = ""
            Dim strsql As String = ""
            Dim objTempds As New DataSet()
            mConfiguration.BeginTransation()
            strfilename = lblmsg.Text
            strsql = "select Name as FieldName from tbl_int_loop_Configuration where parentid='" & mstrMasterConfigId & "' and status <> 'Master' order by srno"
            mConfiguration.GetDataTableWithTransaction(strsql, objDtLoopConfiguration)
            objDtLoopConfiguration.Columns.Add("Status")
            objDtLoopConfiguration.Columns.Add("Message")
            RBtnSave.Visible = True
            DataGridView1.DataSource = objDtLoopConfiguration
            ObjOledbConnection = New System.Data.OleDb.OleDbConnection("provider=Microsoft.ACE.OLEDB.12.0;" & _
            "data source=" & mstrFilePath & " ;Extended Properties=Excel 8.0;")
            Dim objExcel As Object = CreateObject("Excel.Application")
            Dim objBook As Object = objExcel.Workbooks.Open(mstrFilePath)
            For Each oSheet As Excel.Worksheet In objBook.Sheets
                objDtLoopConfiguration = New DataTable
                ObjOledbCommand = New System.Data.OleDb.OleDbDataAdapter("select * from [" & oSheet.Name & "$]", ObjOledbConnection)
                ObjOledbCommand.Fill(objDtLoopConfiguration)
                objDtLoopConfiguration.TableName = oSheet.Name
                mobjds.Tables.Add(objDtLoopConfiguration.Copy())
            Next
            objdsdata = mobjds
            objBook.close()
            Return True
        Catch ex As Exception
            Return False
        End Try
    End Function