[AccessD] Provider not found

I get the same message using

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

I forgot to mention that Access97 (don't use it) is also installed (I don't
know if this is just on my machine or everyone's, since I just started here
on Monday).  This is a new computer(to me) running Windows 2000 professional
and Office 2000.

Thanks,
Nancy

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


Nancy,

You could try changing the provider to Microsoft.Jet.OLEDB.3.61 or  update
your MDAC version.

HTH,

Jim DeMarco


-----Original Message-----
From: Nancy Lytle [mailto:nancy.lytle at auatac.com]
Sent: Wednesday, March 26, 2003 8: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/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".
****************************************************************************
*******

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