[aftfm]

جرب هذا الكود

كود :

Dim DataSet1 As New DataSet
Dim SQLstr As String = "Select * From tbl1"
Con.Open()
        Dim Adapter1 As New OleDbDataAdapter(SQLstr, Con)
        Adapter1.Fill(DataSet1, "tbl1")
        Con.Close()
        txtID.DataBindings.Add("text", DataSet1, "tbl1.ID")