[AccessD] Provider not found

Just noticed that you're passing a provider string to the recordset.Open method and it's expecting a connection.  Try opening a connection first then open the recordset:

dim cnn as ADODB.Connection
dim rs as ADODB.Recordset

Set cnn = NEW ADODB.Connection

cnn.Provider = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=C:\AccessTests\CRDatabaseTest\CRMasterFE.mdb;"

cnn.Open

rs.Open strSQL, cnn


HTH,

Jim DeMarco


-----Original Message-----
From: Nancy Lytle [mailto:nancy.lytle at auatac.com]
Sent: Wednesday, March 26, 2003 9:31 AM
To: accessd at databaseadvisors.com
Subject: RE: [AccessD] Provider not found


Thanks Keith,  I didn't even notice that, too early I guess, so I corrected
it and now it is saying no value given for one or more required parameters.

rstGroup.Open strSQL, "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=C:\AccessTests\CRDatabaseTest\CRMasterFE.mdb;"

Nancy

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com]On Behalf Of Keith L.
Kovala
Sent: Wednesday, March 26, 2003 9:15 AM
To: accessd at databaseadvisors.com
Subject: RE: [AccessD] Provider not found


This may be overly simple, but you might want to check the string you sent.
Between each parameter in the connect string there should be a ";".  So, it
should look something like this.

rstGroup.Open strSQL, "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=C:\AccC:\AccessTests\CRDatabaseTest\CRMasterFE.mdb;"

Keith L. Kovala

> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com
> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Nancy Lytle
> Sent: Wednesday, March 26, 2003 7:56 AM
> To: Accessd
> Subject: [AccessD] Provider not found
>
>
> Can anyone tell me why I would get this message?
>
> Provider not found. It may not be installed properly.
>
> I understand the meaning, it's just that the provider it
> can't find is Jet.
>
> Here is the code.
>
> rstGroup.Open strSQL, "Provider=Microsoft.Jet.OLEDB.4.0" & _
> "Data Source=C:\AccC:\AccessTests\CRDatabaseTest\CRMasterFE.mdb:"
>
> Any assistance appreciated.
>
> Nancy Lytle
>
> The entire context is:
>
> Public Function StartDB()
> Call fcnOSUserName
> Dim strSQL As String
> Dim strGroup As String
> Dim intClientIDCount As Integer
> Dim rstGroup As ADODB.Recordset
> Set rstGroup = New ADODB.Recordset
>
> strSQL = "Select Group from tblUsers Where UserName = " & "'"
> & fcnOSUserName & "'"
>
> rstGroup.Open strSQL, "Provider=Microsoft.Jet.OLEDB.4.0" & _
> "Data Source=C:\AccC:\AccessTests\CRDatabaseTest\CRMasterFE.mdb:"
>
> strGroup = rstGroup.GetString()
>
> If strGroup = "A" Then
>
> DoCmd.OpenForm "frmAdministration", acNormal, "", "", , acNormal
>     DoCmd.Maximize
> ElseIf strGroup = "RW" Then
>
> DoCmd.OpenForm "frmDataEntry", acNormal, "", "", , acNormal
> DoCmd.Maximize Else DoCmd.OpenForm "z_RFil5_frmCustom",
> acNormal, "", "", , acNormal
>
> DoCmd.Maximize
>
> End If 'User name
>
> End Function
>
> _______________________________________________
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/a> ccessd
> Website:
> http://www.databaseadvisors.com
>

_______________________________________________
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com

_______________________________________________
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com


***********************************************************************************
"This electronic message is intended to be for the use only of the named recipient, and may contain information from HealthSource/Hudson Health Plan (HS/HHP) that is confidential or privileged.  If you are not the intended recipient, you are hereby notified that any disclosure, copying, distribution or use of the contents of this message is strictly prohibited.  If you have received this message in error or are not the named recipient, please notify us immediately, either by contacting the sender at the electronic mail address noted above or calling HS/HHP at (914) 631-1611. If you are not the intended recipient, please do not forward this email to anyone, and delete and destroy all copies of this message.  Thank You".
***********************************************************************************