Why ...?

[Prototype]

hello everybody ..

iam developing an application that contains storing and retrieving customers data .. within this i`m using the Update command to update customer record .. but .. two things are not working with me ..

first .. when i search and retrieve the customer data .. his/her results are shown on the (Datagrid) .. then when i want to update his/her record .. i click on the record which i want to update .. and it opens to me another form which suppose to display all the data of that customer .. but when that form is open with me .. the customer information are not dispalyed ..

here is the code:

Private Sub Form_Load()
 
Dim cons As New ADODB.Connection
 
 
cons.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source='C:\orangeps\orangeps.mdb' ;Jet OLEDB : Database Password=foxpro9.0;"
 
Dim ups As New ADODB.Recordset
Dim ups1 As New ADODB.Recordset
Dim ups3 As New ADODB.Recordset
 
ups.Open "select customers.customername, customers.mobilenumber, customers.city where customernumber = " & Module1.search, cons, adOpenStatic, adLockReadOnly
 
ups1.Open "select servicename from servicename", cons, adOpenStatic, adLockReadOnly
 
 
 
Do While Not ups1.EOF
Combo2.AddItem ups1.Fields.Item("ServiceName").Value
ups1.MoveNext
Loop
 
Text1.text = ups("CustomerName")
Text2.text = ups("MobileNumber")
 
Set ups = Nothing
 
cons.Close
End Sub

second .. when i want to update the customer data .. the customer data are not changed in his/her record in the database ..

here is the code of the update:

Private Sub Command1_Click()
 
Dim conn As New ADODB.Connection
Set conn = New ADODB.Connection
 
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source='C:\orangeps\orangeps.mdb' ; Jet OLEDB : Database Password=foxpro9.0;"
 
Dim rows As String
 
rows = "update customers set customername = '" & Text1.text & "'where customernumber = " & Module1.search
conn.Execute
 
conn.Close
 
Set conn = Nothing
 
MsgBox ("A New Record Has Been Updated In The Customers Table"), vbInformation
 
 
End Sub

thanks for any help and respond ..

[Hack]

For the update try

rows = "update customers set customername = '" & Text1.text & "' "
rows = rows & "where customernumber = " & Module1.search 'is this text or numeric?
conn.Execute rows