<div>
thanks for the feedback...<br />
<br />
is the microsoft jet code correct
</div>


thanks for the feedback...

is the microsoft jet code correct

<div>
Even if it was not, that couldn't generate the error you see.<br />
<br />
/gustav
</div>


Even if it was not, that couldn't generate the error you see.

/gustav

<div>
<div class="content wysiwyg-content">
Hi Experts<br />
<br />
I am getting the following error when trying to connect my fron end ms excel worksheet to the ms access database via sql statement<br />
<br />
error message: No value given for one or more required parameters..<br />
<br />
Vba code...<br />
<br />

<pre><code id="code-10-28203868-1">Import_Data.Open strSQl, cn, adOpenStatic, adLockOptimistic</code></pre>
<br />
cannot see the wood for the trees...<br />
<br />
Also the microsoft jet engine is (which could be the cause of the problem on system 32...version 4.0.9511.0)<br />
<br />
Public Sub ConnectDB(cn As ADODB.Connection, strDatabase As String)<br />
Dim strPath As String<br />
<br />
strPath = ActiveWorkbook.Path &amp;&nbsp;&quot;\Databases\&quot; &amp;&nbsp;strDatabase &amp;&nbsp;&quot;.mdb&quot;<br />
<br />
Set cn = New ADODB.Connection<br />
cn.ConnectionString = &quot;Provider=Microsoft.Jet.OL<wbr />EDB.4.0;&quot; _<br />
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &amp;&nbsp;&quot;Data Source=&quot; &amp;&nbsp;strPath<br />
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <br />
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Debug.Print strPath<br />
cn.Open<br />
End Sub
</div>
</div>


Hi Experts

I am getting the following error when trying to connect my fron end ms excel worksheet to the ms access database via sql statement

error message: No value given for one or more required parameters..

Vba code...

(CODE)

cannot see the wood for the trees...

Also the microsoft jet engine is (which could be the cause of the problem on system 32...version 4.0.9511.0)

Public Sub ConnectDB(cn As ADODB.Connection, strDatabase As String)
Dim strPath As String

strPath = ActiveWorkbook.Path & "\Databases\" & strDatabase & ".mdb"

Set cn = New ADODB.Connection
cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" _
                              & "Data Source=" & strPath
                              
                              Debug.Print strPath
cn.Open
End Sub

Run time error 2147217904 (80040e10)

Microsoft Access is a rapid application development (RAD) relational database tool. Access can be used for both desktop and web-based applications, and uses VBA (Visual Basic for Applications) as its coding language.