[asemshahen5]

في الاستعلام الذي وضعته لك ليوجد داعي لوضع جملة اف فهي موضوعة في الاستعلام فقط قم بعرض الناتج مباشرة :

كود :

Public Sub code_users()
 Dim StrSQL as String= "Select IIF(Max(user_id) Is NULL,1,Max(user_id)+1) From users"
 Dim cn As New SqlConnection("Server =(local);database=daccount;integrated security=True")
  Dim da As New SqlDataAdapter(StrSQL, cn)
 Dim dt As New DataTable
 da.Fill(dt)
 mynewidusers = dt.Rows(0)(0).ToString()
End Sub