Standard Database Connection (SQL + ACCESS) Conn connstr SQL server access

* Access ********** ************************
Dbpath = server. mappath ("../DB/# % 20yongfa. mdb ")
Connstr = "provider = Microsoft. Jet. oledb.4.0; Data Source =" & dbpath
Set conn = server. Createobject ("ADODB. Connection ")
Conn. Open connstr
'*************************************** ******************************

************** ************************
Sqldbhost = "127.0.0.1" 'modify the actual database server address
Sqldbname = "datebase" 'is changed to the actual database name.
Sqlusername = "username" 'is changed to the actual database username
Sqluserpass = "password" 'is changed to the actual Database Password
'*************************************** ******************************
Set conn = server. Createobject ("ADODB. Connection ")
'SQL link string
Connstr = "provider = sqloledb.1; persist Security info = true; Data Source =" & sqldbhost & "; initial catalog =" & sqldbname & "; user id =" & sqlusername &"; password = "& sqluserpass
Conn. Open connstr