<div>
Try this: 
 
connstr = &quot;Microsoft.Jet.OLEDB.4.0;Data Source=&quot; &amp;&nbsp;Server.MapPath(&quot;.&quot;) &amp;&nbsp;&quot;\ts2incentives.mdb&quot;;User ID=ts2incentives;Password=Passw0rd;&quot; 

</div>

<div>
This code worked for me: 
 
dim conn, rs, sql, connstr 
set conn = Server.CreateObject(&quot;ADODB.Connection&quot;) 
connstr=&quot;Driver={Microsoft Access Driver (*.mdb)};&quot; &amp;_ 
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&quot;filedsn=d:\hosting\ts2incentives\test\access_ts2incentives.dsn;&quot; &amp;_ 
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&quot;DBQ=d:\hosting\ts2incentives\test\ts2incentives.mdb;&quot; &amp;_ 
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&quot;UID=ts2incentives;PWD=Passw0rd;&quot; 
conn.open connstr 
sql = &quot;select * from PINs;&quot;
</div>

<div>
<div class="content wysiwyg-content">
Experts; 
My code is generating the following error(on the connection string line): 
 
Provider error '80040e4d' 
Authentication failed. 
 
 
dim conn, rs, sql, connstr 
set conn = Server.CreateObject(&quot;ADODB.Connection&quot;) 
set rs = Server.CreateObject(&quot;ADODB.Recordset&quot;) 
connstr = &quot;Microsoft.Jet.OLEDB.4.0;Data Source=&quot; &amp;_ 
response.write(Server.MapPath(&quot;ts2incentives.mdb&quot;)) &amp;_ 
&quot;;User ID=ts2incentives;Password=Passw0rd;&quot; 
conn.open connstr 
sql = &quot;select * from PINs;&quot; 
set rs = conn.Execute(sql)
</div>
</div>

Experts;
My code is generating the following error(on the connection string line):

Provider error '80040e4d'
Authentication failed. 


dim conn, rs, sql, connstr
set conn = Server.CreateObject("ADODB.Connection")
set rs = Server.CreateObject("ADODB.Recordset")
connstr = "Microsoft.Jet.OLEDB.4.0;Data Source=" &_
response.write(Server.MapPath("ts2incentives.mdb")) &_
";User ID=ts2incentives;Password=Passw0rd;"
conn.open connstr
sql = "select * from PINs;"
set rs = conn.Execute(sql)

Try this:

connstr = &quot;Microsoft.Jet.OLEDB.4.0;Data Source=&quot; &amp; Server.MapPath(&quot;.&quot;) &amp; &quot;\ts2incentives.mdb&quot;;User ID=ts2incentives;Password=Passw0rd;&quot;


This code worked for me:

dim conn, rs, sql, connstr
set conn = Server.CreateObject(&quot;ADODB.Connection&quot;)
connstr=&quot;Driver={Microsoft Access Driver (*.mdb)};&quot; &amp;_
	&quot;filedsn=d:\hosting\ts2incentives\test\access_ts2incentives.dsn;&quot; &amp;_
	&quot;DBQ=d:\hosting\ts2incentives\test\ts2incentives.mdb;&quot; &amp;_
	&quot;UID=ts2incentives;PWD=Passw0rd;&quot;
conn.open connstr
sql = &quot;select * from PINs;&quot;

Provider error &#39;80040e4d&#39;

Experts;
My code is generating the following error(on the connection string line):

Provider error &#39;80040e4d&#39;
Authentication failed. 


dim conn, rs, sql, connstr
set conn = Server.CreateObject(&quot;ADODB.Connection&quot;)
set rs = Server.CreateObject(&quot;ADODB.Recordset&quot;)
connstr = &quot;Microsoft.Jet.OLEDB.4.0;Data Source=&quot; &amp;_
response.write(Server.MapPath(&quot;ts2incentives.mdb&quot;)) &amp;_
&quot;;User ID=ts2incentives;Password=Passw0rd;&quot;
conn.open connstr
sql = &quot;select * from PINs;&quot;
set rs = conn.Execute(sql)

Provider error '80040e4d'

Visual Basic is Microsoft’s event-driven programming language and integrated development environment (IDE) for its Component Object Model (COM) programming model. It is relatively easy to learn and use because of its graphical development features and BASIC heritage. It has been replaced with VB.NET, and is very similar to VBA (Visual Basic for Applications), the programming language for the Microsoft Office product line.