Run-time error '3706'. Provider cannot be found. It may not be properly installed"

Question

i am getting error "Run-time error \'3706\'. The provider cannot be found. It may not be properly installed" while running the VB code.

cn.Open ( _
&quo