As mentioned in the comments, you should go look at http://www.connectionstrings.com/access/
If you do go and look at that site, you'll see that the connection string for an access database with password should be
Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\myFolder\myAccessFile.accdb;
Jet OLEDB:Database Password=MyDbPassword;
Whereas what you have is
Provider=Microsoft.Jet.OLEDB.4.0;Data Source=//corpopef@162.222.225.78/CRM.mdb;database=User=corpopef;Password=****;
Now, I honestly can't remember if the slashes make a difference (it's been a long time since I've tried connecting to anything like this), but lets assume they do, in which case, the first bit of your connection string is almost correct, reversing the slashes will give you:
Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\corpopef@162.222.225.78\CRM.mdb;
You then need to declare the database password, which gives you:
Jet OLEDB:Database Password=*******;
(obviously, unless the database password is 7 *'s, put the password in there)
So your completed connection string would be:
Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\\corpopef@162.222.225.78\CRM.mdb;Jet OLEDB:Database Password=*******;
Which means your code should be:
Dim con As New OleDb.OleDbConnection
con.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\\corpopef@162.222.225.78\CRM.mdb;Jet OLEDB:Database Password=*******;"
con.Open()
MsgBox("Database is now open")
con.Close()
' ftpes://corpopef@162.222.225.78/CM.mdb
MsgBox("Database is now Closed")
You're likely to get more civil and also more helpful responses if you don't panic and beg for help and actually think about what people are saying in the comments. The main reason I'm helping is because 1) I've got a spare few moments, and 2) I know how upsetting it is when you're at the end of your tether, can't figure something out and just want it done.