Get Right Record ADO DataReport

[pdddms]

Hello here is a bit of troubling code...first an explanation. I am first selecting a record, adding some info, updating then i want to use the updated record to populate a datareport. i get old data and the wrong record the way my code works now:

Private Sub cmdCreate_Click()
   'On Error GoTo cmdCreate_Click_Error

REGetMinorChildInfo Combo1.Text, "Renames"






With rtpChildID
            Set .DataSource = Nothing
                .DataMember = ""
            Set .DataSource = rsMinorChildren.DataSource
              
                
                
              With .Sections("Section1").Controls
                    
                    
                   ' .Item("txtChildAge").DataMember = ""
                    '.Item("txtChildAge").DataField = Age(txtDOB)
                    
                     
                     .Item("txtChildHeight").DataMember = ""
                    .Item("txtChildHeight").DataField = rsMinorChildren!Height.name
                   
                   .Item("txtChildWeight").DataMember = ""
                    .Item("txtChildWeight").DataField = rsMinorChildren!Weight.name
                    
                      .Item("txtCarrier").DataMember = ""
                    .Item("txtCarrier").DataField = rsMinorChildren!carrier.name
        
                      .Item("txtPolicy").DataMember = ""
                    .Item("txtPolicy").DataField = rsMinorChildren!health_id.name
                    
                      .Item("txtAllergies").DataMember = ""
                    .Item("txtAllergies").DataField = rsMinorChildren!allergies.name
                    
                      .Item("txtMedConditions").DataMember = ""
                    .Item("txtMedConditions").DataField = rsMinorChildren!medicalconditions.name
                    
                      .Item("txtCustodialParent").DataMember = ""
                    .Item("txtCustodialParent").DataField = rsMinorChildren!custody.name
                    
                      .Item("txtAddress").DataMember = ""
                    .Item("txtAddress").DataField = rsMinorChildren!address.name
                    
                      .Item("txtCityStZip").DataMember = ""
                    .Item("txtCityStZip").DataField = rsMinorChildren!fulladdress.name
                    
                      .Item("txtChildEyes").DataMember = ""
                    .Item("txtChildEyes").DataField = rsMinorChildren!eyes.name
                    
                    .Item("txtChildHair").DataMember = ""
                    .Item("txtChildHair").DataField = rsMinorChildren!hair.name
                    
                    .Item("txtHome").DataMember = ""
                    .Item("txtHome").DataField = rsMinorChildren!home.name
                    
                    .Item("txtCell").DataMember = ""
                    .Item("txtCell").DataField = rsMinorChildren!cell.name
                    
                    .Item("txtWork").DataMember = ""
                    .Item("txtWork").DataField = rsMinorChildren!work.name
                    
                   ' .Item("txtChildName").DataMember = ""
                    '.Item("txtChildName").DataField = rsMinorChildren!fname & " " & rsMinorChildren!lname
                    
                   ' .Item("Image1").Picture = ""
                    '.Item("Image1").Picture = App.Path & "\autoupdate.gif" 'GetImage(rsMinorChildren)
                    
                    
                    
               End With
              .Refresh
              
               .Show
       End With

  ' On Error GoTo 0
   'Exit Sub

'cmdCreate_Click_Error:

    'MsgBox "Error " & Err.Number & " (" & Err.Description & ") in procedure cmdCreate_Click of Form frmChildID"

 

End Sub

here is the sub

Public Sub REGetMinorChildInfo(name As String, loadby As String)
Dim strHeight As String
Dim strAge As String

If loadby = "Renames" Then
loadingbyname:
With rsMinorChildren
If .RecordCount = 0 Then Exit Sub
.MoveFirst
Do While Not .EOF

If rsMinorChildren!fname & " " & rsMinorChildren!lname = Combo1.Text Then

GoTo endOfSearch
Else
.MoveNext
End If
Loop
Exit Sub
endOfSearch:
strHeight = txtFt & " Ft." & txtIn & " In."
strAge = Age(txtDOB.Text)
        rsMinorChildren!hair = txtHair.Text
        rsMinorChildren!eyes = txtEyes.Text
        rsMinorChildren!Weight = txtWt.Text
        rsMinorChildren!Height = strHeight
        rsMinorChildren!allergies = txtAllergies.Text
        rsMinorChildren!Age = strAge
        rsMinorChildren!work = txtWork.Text
        rsMinorChildren!home = txtHome.Text
        rsMinorChildren!cell = txtCell.Text
        rsMinorChildren!carrier = txtIns.Text
        rsMinorChildren!health_id = txtPolicy.Text
        rsMinorChildren!medicalconditions = txtConditions.Text
        rsMinorChildren!fulladdress = txtCity & ", " & txtSt & "  " & txtZip
        rsMinorChildren.Update
        'rsMinorChildren.Refresh
        
End With
End If
Exit Sub
'End If
End Sub

I'm stumped!!!!!

-stew

LoL Concepts®

http://www.lolconcepts.com