Added records not displaying

[eclair]

I have a problem with my recordset (coming from an access table through an ado connection object)
I can add a record from vb to access and it is added correctly to the access table, but ..HERE COMES THE PROBLEM... I cant view the record in Vb when i try to scroll through it, it is only the former recordset that is displayed.

(Sorry about the messiness of the code)

Private Sub cmdAdd_Click()
 
 
'Allows the user to add a new record
'to the list of clients.
'Hides the various text/Combo boxes.
    txtFName.Locked = False
    txtLName.Locked = False
    txtStreet.Locked = False
    txtTown.Locked = False
    cboCounty.Locked = False
    txtPhoneNo.Locked = False
    txtPreferences.Locked = False
    cboAge.Locked = False
    cmdHistory.Visible = False
    cmdAddSave.Visible = True
    fraControls.Visible = False
    cmdBack.Visible = True
    
     rsDetails.AddNew
 
'rsDetails.Requery
 
 
End Sub
 
 
Private Sub cmdAddSave_Click()
If txtFName.Text = "" Or txtLName.Text = "" Or txtStreet.Text = "" Or txtTown.Text = "" Or cboCounty.Text = "" Or txtPhoneNo.Text = "" Or cboAge.Text = "" Then
MsgBox "Please Complete the Missing Details", vbCritical, "Missing Details"
Else
rsDetails.Update
 
 
rsDetails.Requery
     MsgBox "Record Added Successfully", vbInformation, "Client Record Added"
 
End If
End Sub
 
 
 
Private Sub Form_Load()
 
        
        Set cnDetails = New Connection
        Set comDetails = New Command
        Set rsDetails = New Recordset
        Dim strDetails As String
        Dim rsStaff As Recordset
        Dim comStaff As Command
        Dim strStaff As String
        
    'Determines the provider and the connection to
    'the specified database.
    cnDetails.Provider = "Microsoft.Jet.OLEDB.4.0"
    cnDetails.ConnectionString = "A:\VBPRO_Compacted.mdb"
 
    'Opens the connection
    cnDetails.Open
 
    'comDetails.ActiveConnection = cnDetails
 
    'SQL statement
    strDetails = "SELECT tblClient.C_Number, tblClient.C_F_Name, tblClient.C_L_Name, tblClient.C_Street, tblClient.C_Town, tblClient.C_County,tblClient.C_Phone, tblClient.C_Age, tblClient.C_Preferences, tblClient.Notes FROM tblClient INNER JOIN History ON tblClient.C_Number = History.C_Number Order By tblClient.C_Number Asc "
 
   ' "SELECT tblClient.C_Number, tblClient.C_F_Name, tblClient.C_L_Name, tblClient.C_Street, tblClient.C_Town, tblClient.C_County, tblClient.C_Phone, tblClient.C_Age, tblClient.C_Preferences, tblClient.Notes, tblStaff.S_F_Name FROM tblStaff INNER JOIN tblClient ON (tblStaff.S_Number = tblClient.C_Prefered_Stylist)Order By tblClient.C_Number Asc "
 
'   ' .ActiveConnection = cnDetails
   ' .CommandText = strDetails
'End With
 
'Set rsDetails = comDetails.Execute
 
 
    'rsDetails.Open strDetails, cnDetails, adOpenDynamic, adLockOptimistic
 
 
 With rsDetails
     .ActiveConnection = cnDetails
     .CursorLocation = adUseClient
     .CursorType = adOpenDynamic
     .LockType = adLockOptimistic
     .Open strDetails, cnDetails, adOpenDynamic, adLockOptimistic
     
  End With
   
   
   
   strStaff = "SELECT tblStaff.S_F_Name FROM tblStaff"
   
    With rsStaff
'     .ActiveConnection = cnDetails
'     .CursorLocation = adUseClient
    ' .CursorType = adOpenDynamic
     '.LockType = adLockOptimistic
     '.Open strStaff, cnDetails, adOpenDynamic, adLockOptimistic
     
  End With
'   Do While Not rsStaff.EOF
   ' cboStylist.AddItem rsStaff.Fields("S_F_Name")
    'rsStaff.MoveNext
   ' Loop
    'Calls the BindData funtion
    BindData
 
 
End Sub

[eclair]

Any takers? Someone help me???

[wonkaman]

I see where you're saving the data, but where are you trying to view it? Do you have code you can paste for that? Also, did you refresh the data before viewing it again after adding the record(s)?