[Rabeea Qbaha]

الاتصال مفتوح من قبل 

استخدم هذا الكود 

قم بتبديل هذا الكود 

كود :

           Con.Open()

بهذا الكود 

PHP كود :

       If Con.State = ConnectionState.Closed Then
            Con.Open()
        End If 


---

نصيحه اخرى صديقي من الافضل ان تستخدم ال parameters فهي افضل من ناحيه امان وافضل من ناحيه ترتيب و من الكثير من النواحي

الطريقه كالاتي قم باستبدال ما يناسب الكود لديك 

PHP كود :

If Conn.State = ConnectionState.Closed Then
            Conn.Open()
        End If

        Dim cmd As New OleDb.OleDbCommand
        cmd.Connection = Conn
        cmd.CommandType = CommandType.Text
        cmd.CommandText = "UPDATE table1 SET user_forname=@user_forname, user_ gender =@user_ gender  WHERE  user_idi= @ user_idi"
cmd.Parameters.AddWithValue("@user_forname", TextBox2.Text)
        cmd.Parameters.AddWithValue("@user_ gender", TextBox3.Text)
        cmd.Parameters.AddWithValue("@ user_idi", TextBox1.Text)
        cmd.ExecuteScalar()
        Conn.Close()