cn.Open()
Dim cmd As New SqlCommand("INSERT INTO [Customer] (FirstName, LastName, Email, ScheduleID, Gender, PhoneNumber) VALUES (@FirstName, @LastName, @Email, @ScheduleID, @Gender, @PhoneNumber) ", cn)
Dim cmd2 As New SqlCommand("INSERT INTO [Schedule] (ScheduleDateTime, Description, Annotation, Status) VALUES (@ScheduleDateTime, @Description, @Annotation, @Status) ", cn)
cmd.CommandType = CommandType.Text
cmd2.CommandType = CommandType.Text
'NEW RECORD
'SCHEDULE TABLE
'HAVE Increment ID (ScheduleID)
cmd2.Parameters.AddWithValue("@ScheduleDateTime", txtScheduleDateTime.Text)
cmd2.Parameters.AddWithValue("@Description", txtDescription.Text)
cmd2.Parameters.AddWithValue("@Annotation", txtAnnotation.Text)
cmd2.Parameters.AddWithValue("@Status", txtStatus.Text)
'I ...
Go to the complete details ...