Hi All.

This is my first post here I I'll would like to say help to everyone.

I'm haveing some problem's with editing within my VB6 app?

This is my code below;

Private Sub ButCustSearch_Click()

Dim v_sSQL As String
Dim v_rsFind As New Recordset
Dim v_iLoop As Integer
Dim v_sActiveConnection As String
Dim v_iIndex As Integer
Dim AppPath As String
Dim CorrectRecord As Integer

' Checking the Field are not all blank.

If txt_MemberID.Text = "" And tbx_SName.Text = "" Then

MsgBox "Please Select a Criteria", vbInformation + vbOKOnly, "Record Search"
Exit Sub

End If

AppPath = frm_currentuser.TxtAppPath.Text
CorrectRecord = 7
On Error GoTo Err


v_sActiveConnection = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & AppPath
v_sSQL = "SELECT * FROM Tbl_Customer_Details WHERE "


If tbx_SName.Text = "" Then

v_sSQL = v_sSQL & "Customer_ID LIKE '" & txt_MemberID.Text & "'"

Else

v_sSQL = v_sSQL & "Surname LIKE '" & tbx_SName.Text & "'"

End If

' v_sSQL = Left(v_sSQL, Len(v_sSQL) - 5)
v_rsFind.Open v_sSQL, v_sActiveConnection

While Not v_rsFind.EOF And CorrectRecord = 7

v_iIndex = v_iIndex + 1

' Displaying Results

txt_MemberID.Text = v_rsFind.Fields!Customer_ID
txt_Db_Title.Text = v_rsFind.Fields!Title
tbx_FName.Text = v_rsFind.Fields!Forenames
tbx_SName.Text = v_rsFind.Fields!Surname
dtpDOB.value = v_rsFind.Fields!DOB
txtTimeDate.Text = v_rsFind.Fields!Reg_Date
txt_Db_Gender.Text = v_rsFind.Fields!Gender

CorrectRecord = MsgBox("Is this the Correct Record", vbQuestion + vbYesNo, "Record")

v_rsFind.MoveNext

Wend

If CorrectRecord = 7 Then

MsgBox "End Of Record Search, No more current records have the requested Criteria", vbInformation + vbOKOnly, "Record Search"


End If

If CorrectRecord = 6 Then

' will not be able to change the Member ID

txt_MemberID.Enabled = False


End If

' v_rsFind.Close

Exit Sub

Err:
MsgBox Err.Description, vbCritical

End Sub

Now if I changed the text in i.e. tbx_SName.Text how would I store that back in my Db (I'm using Access 97)