Dim b as integer = 1
cmd = New SqlCommand
                With cmd
                    .Connection = connecti
                    .CommandTimeout = 0
                    .CommandText = "INSERT INTO HEZDDD(ID,Number,Dates) VALUES (@Id,@Number,@Dates)"
                   With .Parameters
                        .AddWithValue("@ID", NextId())
                        .AddWithValue("@Dates", date.now)

                     If b = 1 Then
                        .AddWithValue("@Number", 1)
                         cmd.ExecuteNonQuery()
                     End if

                     If b>10 Then
                        .AddWithValue("@Number", 2)
                         cmd.ExecuteNonQuery()
                     End if
                  End With
              End With