insert record(vb.net 2008)

Private Sub Insert_temptblitemhistory()
        connection_open()
        ssql = "INSERT INTO tblitem_history SELECT * FROM tblitem WHERE ticketno = '" & txtticketno1.Text & "'"
        cmd = New OleDbCommand(ssql, olecon)
        cmd.ExecuteNonQuery()
        cmd.Dispose()
        connection_close()
    End Sub