[adel27]

وضعت هذا الكود من أجل جلب الرقم من قاعدة البيانات ولكن خطأ لم يتم أرجاع كائن مثيل ...؟

da = New SqlDataAdapter("select * From Users", conn)
ds = New DataSet
da.Fill(ds, "Users")
GRDD.DataSource = ds.Tables("Users")
' da = New SqlDataAdapter("select * From COP_DAT", conn)
ds = New DataSet
'Try

Dim max As Integer
For i As Integer = 0 To ds.Tables("Users").Rows.Count - 1
If ds.Tables("Users").Rows(i).Item("ID") > max Then
max = ds.Tables("Users").Rows(i).Item("ID")
End If
Next
TextBox2.Text = max

da.Fill(ds, TextBox2.Text)