Added records not displaying

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)

VB 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