[alims]

السلام عليكم 
عندى مشكلة فى تراتيب الكود الاضافة و التعديل مع بعض داخل try
ارويد يتعم اضافة بيانات جديدة و فى حالة ان هى موجود قبل كده يتم التعديل عليه فى نفس الوقت و ده الكود لى شغل عليه

كود :

 Try
           Dim con As New System.Data.SqlClient.SqlConnection(conn)
           Dim da As New System.Data.SqlClient.SqlDataAdapter("select * from UserStatus", conn)
           con.Open()
           Dim ds As New DataSet
           Dim cm As New System.Data.SqlClient.SqlCommandBuilder(da)
           da.Fill(ds, "UserStatus").ToString()
           Dim dr As DataRow = ds.Tables("UserStatus").NewRow
               dr.Item("idsuer") = Form1.Label6.Text
               dr.Item("timeSignIn") = Format(Now, "hh:mm:ss")
               dr.Item("dataSignin") = Now.Date
               dr.Item("status") = "SignIn"
               ds.Tables("UserStatus").Rows.Add(dr)
           da.Update(ds, "UserStatus")
           con.Close()
           Dim cmd As New SqlCommand
           cmd.Connection = con
           cmd.CommandType = CommandType.Text
           cmd.CommandText = "UPDATE UserStatus SET timeSignIn=@timeSignIn WHERE idsuer= @idsuer"
           cmd.Parameters.AddWithValue("@idsuer", Form1.Label6.Text)
           cmd.Parameters.AddWithValue("@timeSignIn", Format(Now, "hh:mm:ss"))
           cmd.ExecuteScalar()
           con.Close()

       Catch ex As Exception
           Form1.TextBox1.Text = ""
           Form1.TextBox2.Text = ""
           Form1.ListView1.Visible = False
           Form1.Panel1.Visible = False
           Form1.PictureBox11.Visible = False
           Form1.PictureBox9.Visible = False
           Form1.PictureBox10.Visible = False
           Form1.PictureBox8.Visible = False
           Form1.LinkLabel1.Visible = True
           Form1.LinkLabel2.Visible = True
           Form1.LinkLabel3.Visible = True
           Form1.Button1.Enabled = True
           Dim file As String = "key.txt"
           If My.Computer.FileSystem.FileExists(file) Then
               Dim filecontents As String
               filecontents = My.Computer.FileSystem.ReadAllText("key.txt")
               FileClose()
               Form1.ComboBox1.SelectedItem = filecontents.ToString
               Form1.TextBox1.Select()
               If filecontents.ToString = "English" Then
                   Form1.Label1.Text = ""
                   Form1.Label1.Text = "Spicy Messenger !"
                   Exit Sub
               End If
               If filecontents.ToString = "العربية" Then
                   Form1.Label1.Text = ""
                   Form1.Label1.Text = "ماسنجر حار!"
                   Exit Sub
               End If
           Else
               My.Computer.FileSystem.WriteAllText("key.txt", "English", True)
               Form1.ComboBox1.SelectedItem = "English"
           End If
           Form1.Show()
       End Try

---

الحمد الله ده الترتيب الصحيحه للكود

كود :

Dim con As New System.Data.SqlClient.SqlConnection(conn)
       Try
           If con.State = ConnectionState.Open Then con.Close()
           con.Open()
           Dim ds As New DataSet
           ds.Clear()
           Dim data As New SqlClient.SqlDataAdapter("select * from UserStatus where (idsuer=N'" & Form1.Label6.Text & "')", con)
           Dim cm As New System.Data.SqlClient.SqlCommandBuilder(data)
           data.Fill(ds, "UserStatus")
           If ds.Tables("UserStatus").Rows.Count = 0 Then
               Dim dr As DataRow = ds.Tables("UserStatus").NewRow
               dr.Item("idsuer") = Form1.Label6.Text
               dr.Item("timeSignIn") = Format(Now, "hh:mm:ss")
               dr.Item("dataSignin") = Now.Date
               dr.Item("status") = "SignIn"
               ds.Tables("UserStatus").Rows.Add(dr)
               data.Update(ds, "UserStatus")
               con.Close()
               Exit Sub
           Else
               Dim cmd As New SqlCommand
               cmd.Connection = con
               cmd.CommandType = CommandType.Text
               cmd.CommandText = "UPDATE UserStatus SET status=@status , dataSignin=@dataSignin , timeSignIn=@timeSignIn WHERE idsuer= @idsuer"
               cmd.Parameters.AddWithValue("@idsuer", Form1.Label6.Text)
               cmd.Parameters.AddWithValue("@timeSignIn", Format(Now, "hh:mm:ss"))
               cmd.Parameters.AddWithValue("@dataSignin", Now.Date)
               cmd.Parameters.AddWithValue("@status", "SignIn")
               cmd.ExecuteScalar()
               ''con.Close()
               Exit Sub
           End If
       Catch ex As Exception