DoCmd.RunCommand acCmdSaveRecord returns Invalid use of Null

Hello,
Any help would be appreciated.

Problem: I keep getting an error message "Invalid use of Null" returned on DoCmd.RunCommand acCmdSaveRecord.  I want to save the record, then immediately return a field to use.  I'm trying to return [Forms]![CreateSCRSub]![SCR ID] which is the primary key and auto-incremented.

Using: Access 2000 & XP database front-end with a SQL 7 server back-end.  This error happens almost everytime on AccessXP a sporadically on the Access 2000 front-end.

Some example code:
____
Private Sub SaveSCR()
On Error GoTo Err_SaveSCR

        Dim dbsMSCR As Database
        Dim rsNew As Recordset
        Dim rsDependent As Recordset
        Dim rsTempRecord As Recordset
        Dim rsChangeRequest As Recordset

        'Copy the Form stuff to the record
        DoCmd.OpenForm "CreateSCRSub", acNormal, , , acFormAdd, acHidden
        [Forms]![CreateSCRSub]!Name = txtName
        [Forms]![CreateSCRSub]!Software = Software
        [Forms]![CreateSCRSub]!Description = Description
        [Forms]![CreateSCRSub]!Priority = Priority
        [Forms]![CreateSCRSub]!Originator = Originator
       
        'Save Record to Get the Number
        DoCmd.RunCommand acCmdSaveRecord
        mySCRID = [Forms]![CreateSCRSub]![SCR ID]

        'Set to Curent DB
        Set dbsMSCR = CurrentDb
        'Open the BugNumbers Table
        Set rsNew = dbsMSCR.OpenRecordset("BugNumbers", dbOpenDynaset, dbSeeChanges)
        'Open the Dependencies Table
        Set rsDependent = dbsMSCR.OpenRecordset("Dependancy List", dbOpenDynaset, dbSeeChanges)
        'Open the TempBufDepTable
        Set rsTempRecord = dbsMSCR.OpenRecordset(strMyUniqueName, dbOpenTable, dbReadOnly)
       
        If Not (rsTempRecord.EOF) Then
            rsTempRecord.MoveFirst
            While Not (rsTempRecord.EOF)
                If (rsTempRecord("Dependency")) Then
                    rsDependent.AddNew
                    rsDependent("Source SCR ID") = mySCRID
                    rsDependent("Depends Upn SCR ID") = rsTempRecord("Dependency")
                    rsDependent.Update
                    rsDependent.MoveNext
                End If
                rsTempRecord.MoveNext
            Wend
        End If
       
       
        'Close RecordSets
        rsTempRecord.Close
        rsNew.Close

        'Close Forms
        DoCmd.Close acForm, "UserCreateSCRSub"
        DoCmd.Close acForm, "CreateSCRSub", acSaveYes
 
       
        'Mark State as Closed
        Set rsChangeRequest = dbsMSCR.OpenRecordset("Change Requests", dbOpenDynaset, dbSeeChanges)
        rsChangeRequest.FindFirst "[SCR ID] = " & mySCRID
        rsChangeRequest.Edit
        rsChangeRequest("State") = enumCreated
        rsChangeRequest.Update
       
        rsChangeRequest.Close
        Set dbsMSCR = Nothing
       
'Error Handeling
Exit_SaveSCR:
    Exit Sub

Err_SaveSCR:
    MsgBox Err.Description
    Resume Exit_SaveSCR
       
End Sub
_____________


Thanks