บันทึก ID จาก Combobox ใน VB.Net 2010 ฐานข้อมูล SQL Server 2008

' อันนี้คือ sub ที่ใช้แสดง คำนำหน้าชื่อใน Combobox ซึ่งผมตั้งชื่อ cboPrefix
Sub GetPrefix ()
        strSQL = "select * from tb_prefix"
        conn = GetConnect() 
        conn.Open()
        cmd = New SqlCommand(strSQL, conn)
        dr = cmd.ExecuteReader
        While (dr.Read())
            With cboPrefix.Items.Add(dr("Prefixname"))
            End With
        End While
        cmd.Dispose()
        dr.Close()
        conn.Close()
    End Sub

Dim check As Integer
        conn = GetConnect()
        conn.Open()
        cmd = conn.CreateCommand
        cmd.CommandText = "Insert into tb_add_data(PreID) values ('" & cboPrefix.SelectedItem & "')"
        check = cmd.ExecuteReader.RecordsAffected()

   If check > 0 Then
     MsgBox("OK Insert")

     Else
     MsgBox("Error insert")
     End If
        conn.Close()