आप एक डबल क्वेरी का उपयोग कर सकते हैं और फ़ंक्शन का उपयोग कर सकते हैं LAST_INSERT_ID() अंतिम वर्तमान क्वेरी प्राप्त करने के लिए अपनी पहली क्वेरी चलाने के बाद:
Dim insert_coupon_query As String = ("INSERT INTO qa_discountcoupons (status_code) VALUES (5); SELECT LAST_INSERT_ID()")
Dim cmd_query As New MySqlCommand(insert_coupon_query, objConn)
Dim cmd_result As Integer = CInt(cmd_query.ExecuteScalar())
MsgBox(cmd_result)