[على رمضان]

استاذ سعود عملت زى ما انت قلت بس برضه فى خطوط زرقة انا طبعا عرفت انه فى فرق بين
(dim con as new oledb.oledbconnection(str


dim con as new oledbconnection(str)

الفرق النقطة ودى اشتغلت معاية Dim Conn As New OleDbConnection(ConStr)
وبص على الكود اللى كتبته وقلى ايه اللى فيه غلط

Imports System.Data
Imports System.Data.OleDb
Public Class Form1
Dim ConStr As String = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source =" & Application.StartupPath & "\بيانات_قطع_الأراضى_اخير.mdb.mdb"
Dim Conn As New OleDbConnection(ConStr)
Dim DataSet1 As New DataSet
Dim SQLstr As String = "SELECT * FROM بياتات_العملاء"

Private Sub GroupBox4_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GroupBox4.Enter
Conn.Open()
Dim DataAdapter1 As New OleDbDataAdapter(SQLstr, Conn)
DataAdapter1.Fill(DataSet1, "Table1")
Conn.Close()
TextBox1.DataBindings.Add("Text", DataSet1, "بياتات_العملاء.ID_Amlaa")
TextBox2.DataBindings.Add("Text", DataSet1, "بياتات_العملاء.neme")
TextBox3.DataBindings.Add("Text", DataSet1, "بياتات_العملاء.National ID")
TextBox4.DataBindings.Add("Text", DataSet1, "بياتات_العملاء.Name of the wife / husband")
TextBox5.DataBindings.Add("Text", DataSet1, "بياتات_العملاء.Number of Children")
TextBox6.DataBindings.Add("Text", DataSet1, "بياتات_العملاء.Phone number")
TextBox7.DataBindings.Add("Text", DataSet1, "بياتات_العملاء.Address")
End Sub
End Class

هو عطينى الخط الأزرق تحت كل تكست زي ما انا موضح