The problem still occurs while i am using database file format as "accdb".
So i convert 'accdb' to 'mbd'
and used,
Dim con = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Application.StartupPath & "\DB.mdb")
Now it works fine.
Thank you for all your supports friends.