[hglogtd]

هذا الكود وحست فيه رأس على عقب

كود :

   Dim ret As Integer

           Using form As New OleDb.OleDbCommand("SELECT COUNT(*) FROM [user] WHERE [user_name]=@username", cnn)
               cmd.Parameters.AddWithValue("@username", Environment.UserName)
               If Not Form1.State = ConnectionState.Open Then Form3.Show()
               ret = cmd.ExecuteScalar ' Scalar '
               Form3.Show()
           End Using

           If ret > 0 Then
               Form3.ShowDialog()

           Else
               Label3.Text = ("غير مسموح لك التعديل")

           End If
       End Using