[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