ต้องการให้เวลาบันทึก ให้บันทึก id ในฟิว ProfileID โดยอัตโนมัตอ่คะ แล้วก็ฟิว PID ดึงรหัสหรือ PK จากตา

Dim varPrisonID As String = CStr(ComboPrison_t2.SelectedValue)
Dim varBlame As String = txtBlame_t2.Text.Trim()
Dim varTall As String = txtTall_t2.Text.Trim() 
Dim varWeight As String = txtWeight_t2.Text.Trim()
Dim varDepartID As String = CStr(ComboDepartment_t2.SelectedValue)
Dim varPartID As String =  CStr(ComboPart_t2.SelectedValue)
Dim varAreaID As String = CStr(ComboArea_t2.SelectedValue)
Dim varRdoNewMove As String = String.Empty

If rdoNew_t2.Checked = True Then
   varRdoNewMove  = "รับตัวใหม่"
ElseIf rdoMove_t2.Checked = True Then
   varRdoNewMove  = "ย้ายมาจากเรือนจำอื่น"
End If

DIM SqlCommandTextBuilder AS System.Text.StringBuilder = New System.Text.StringBuilder()
SqlCommandTextBuilder.AppendLine("DECLARE @MAX_ID AS INT ;") 
SqlCommandTextBuilder.AppendLine("SELECT @MAX_ID=ISNULL(MAX(PID),-1) FROM HISTORY;") 
SqlCommandTextBuilder.AppendLine("INSERT INTO PROFILES ")
SqlCommandTextBuilder.AppendLine("   ( PrisonID, Blame, Tall ,Weight " ) 
SqlCommandTextBuilder.AppendLine("     ,DepartID, PartID, AreaID, PID, rdoNewMove) " )
SqlCommandTextBuilder.AppendLine("VALUES    ")
SqlCommandTextBuilder.AppendLine("   ( @VarPrisonID, @VarBlame, @VarTall ,@VarWeight " ) 
SqlCommandTextBuilder.AppendLine("     ,@VarDepartID, @VarPartID, @VarAreaID " )
SqlCommandTextBuilder.AppendLine("     ,@MAX_ID, @VarrdoNewMove); " )

Dim cmdStr As String = SqlCommandTextBuilder.ToString()
Dim cmd As SqlCommand = New SqlCommand ( cmdStr , xConnection ) 
'xConnection  ก็  Connection ของคุณนะคะ

'ไม่ต้อง Add parameter @MAX_ID เพราะเป็นตัวแปรภายใน T-SQL
cmd.Parameters.AddWithValue("@VarPrisonID" ,varPrisonID )
cmd.Parameters.AddWithValue("@VarBlame" ,varBlame)
cmd.Parameters.AddWithValue("@VarTall" ,varTall )
cmd.Parameters.AddWithValue("@VarWeight" ,varWeight )
cmd.Parameters.AddWithValue("@VarDepartID" ,varDepartID)
cmd.Parameters.AddWithValue("@VarPartID" ,varPartID)
cmd.Parameters.AddWithValue("@VarAreaID" ,varAreaID )
cmd.Parameters.AddWithValue("@VarrdoNewMove" ,varRdoNewMove )