Keith L. Kovala
klk at ksu.edu
Wed Mar 26 08:15:22 CST 2003
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 >