[AccessD] Provider not found

Nancy,

Are you sure you have Jet 4.0 installed, since that is the version you
are asking for.

Charles Wortz
Software Development Division
Texas Education Agency
1701 N. Congress Ave
Austin, TX 78701-1494
512-463-9493
CWortz at tea.state.tx.us



-----Original Message-----
From: Nancy Lytle [mailto:nancy.lytle at auatac.com] 
Sent: Wednesday 2003 Mar 26 07:56
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