[vbnet]

-
استبدل هذا الجزء في class1

كود :

Public Function SQLExciute(ByVal SQLStatment As String) As Boolean
    Try
        Dim cmd As New SqlCommand
        cmd.CommandText = SQLStatment
        sqlcon.Open()
        cmd.Connection = sqlcon
        cmd.ExecuteNonQuery()
        sqlcon.Close()
        Return True
    Catch ex As Exception
        Return False
        MsgBox(ex.Message)
    Finally
        sqlcon.Close()
    End Try
End Function