[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