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

 '///////////////////////
 Private Sub InsertData()
     ' Ouvrir la connexion à la base de données  
     Connection.Open()
     Try
         If Connection.State = ConnectionState.Open Then
             Command.Connection = Connection
 
             ' Vérifier si l'utilisateur existe déjà  
             Command.CommandText = "SELECT COUNT(*) FROM USERS WHERE user_name = @userName"
             Command.Parameters.Clear() ' Nettoyer les paramètres précédents  
             Command.Parameters.AddWithValue("@userName", TextBox1.Text.Trim()) ' Trim pour enlever les espaces  
 
             Dim userExists As Integer = Convert.ToInt32(Command.ExecuteScalar()) ' Exécuter la commande et récupérer le résultat  
 
             If userExists > 0 Then
                 MessageBox.Show("هذا المستخدم موجود مسبقا", "خطأ ", MessageBoxButtons.OK, MessageBoxIcon.Warning)
             Else
                 ' Insérer les nouvelles données  
                 Command.CommandText = "INSERT INTO USERS (user_name, user_password, user_role) VALUES (@userName, @userPassword, @userRole)"
                 Command.Parameters.Clear() ' Nettoyer les anciens paramètres  
                 Command.Parameters.AddWithValue("@userName", TextBox1.Text.Trim())
                 Command.Parameters.AddWithValue("@userPassword", TextBox2.Text.Trim())
                 Command.Parameters.AddWithValue("@userRole", ComboBox1.Text.Trim())
                 Command.ExecuteNonQuery() ' Exécuter l'insertion  
                 MessageBox.Show("تمت اضافة مستخدم", "تسجيل ناجح", MessageBoxButtons.OK, MessageBoxIcon.Information)
             End If
         End If
     Catch ex As Exception
         MessageBox.Show("خظأ أثناء الادراج : " & ex.Message, "Erreur", MessageBoxButtons.OK, MessageBoxIcon.Error)
     Finally
         Connection.Close() ' Toujours fermer la connexion  
     End Try
 End Sub
 '//////////////////////////