منتدى استراحات زايد - ساعدوني في اكواد الفجوال....الله يعطيكم العافيه!!

السلام عليكم و رحمة الله و بركاته
ســــــاعدوني في هذي الاكواد

لدي مجموعة اسئله في فيجوال بيسك
خاصة في الاكواد التابعه لقاعدة البيانات

1- ماهو الخطأ في كود التحديث (التعديل) هذا !!

Private Sub Button5_Click(ByVal sender As System...

If TextBox2.Text = "" Then
MsgBox("أدخل رقم العميل الذي تريد تعديل بياناته", MsgBoxStyle.Critical)
Else
Dim con1 As New OleDb.OleDbConnection
con1.ConnectionString = ("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=nedam.mdb")

Dim updatecommand As New OleDb.OleDbCommand
updatecommand.CommandText = " update gnf set name_client = '" & TextBox1.Text & "',num_client = " & TextBox2.Text & ",nationality = '" & TextBox3.Text & "')"

updatecommand.Connection = con1

con1.Open()

updatecommand.ExecuteNonQuery()

con1.Close()
MsgBox("تم تعديل سجل بنجاح")

TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
End If

End Sub
*****************************************

2- لدي كود البحث لقاعدة بيانات لكن يتم عرض البيانات في DataGrid1
و أنا اريد عرضه في مربعات النص الموجوده في الفورما

وهذا هو الكود الذي لدي

Private Sub Button3_Click(ByVal ......

If TextBox2.Text = "" Then
MsgBox("أدخل رقم العميل ليتم البحث عن بياناته", MsgBoxStyle.Information)
Else
Dim con As New OleDb.OleDbConnection

Dim dsperson As New DataSet

Dim sql2 As String = "select * from gnf where num_client = " & TextBox2.Text & " "

con.ConnectionString = ("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=nedam.mdb ")
Dim da As New OleDb.OleDbDataAdapter(sql2, con)

da.Fill(dsperson, "table2")
DataGrid1.DataSource = dsperson.Tables("table2")
End If
End Sub
*****************************
3- السؤال الاخير
انا اريد عندما يكتب المستخدم جميع بياناته على فورم1 مثلا
وينقر على زر(اوكي)تظهر له فورم2 مكتوب فيها بعض البيانات التي كتبها
فما هو الكود الذي اضعه على الاداه في فورم2 بحيث
يستقبل البيانات التي كتبها المستخدم من فورم1

******************************
ولكم جزيل الشكر
انا في انتظار الرد
بسرعه لو سمحتوا

^
^